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ABSTRACT 


High Strength Low Alloy (HSLA) steels have been shown 
to posses high strength and toughness. Additionally, these 
Steels can be welded without the normal preheating required 
by comparable HY-series steels. HSLA - 100, 100 Ksi yield 
Strength, contains increased amounts of copper, manganese 
and nickel over the currently certified HSLA - 80. However, 
prior to use in Naval ship construction Knowledge of the 
steels toughness behavior is necessary. Existing fracture 
mechanics models are not applicable to HSLA - 100 because 
HSLA-100 nas only O. O47 carbon and these models use carbides 
as the nucleation sites for cleavage fracture. This research 
ls part of a program to investigate and model the 
micromechanics of deformation and fracture of HSLA-100. 

Tensile testing of hourglass shaped specimens was 
conducted at quasi-static strain rates. Individual tensile 
test temperatures ranged from 24 C to -196 C. True stress, 
corrected for necking, and true plastic strain were 
monitored throughout the tests. This allowed a comparison to 
be made between the plastic strain behavior of HSLA - 100 
Steel and a traditional constitutive equation used to 


describe the stress-strain behavior of metals. 
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1. INTRODUCTION 


A. DEVELOPMENT OF COPPER BEARING HSLA STEELS 

Ine problems associated with welding quenched and 
tempered high alloy and plain carbon steels are well 
documented [Refs. ie). Tne high cost of manufacturing and 
producing satisfactory critical welds in these conventional 
Steels combined with the desire for higher strength 
weldable materials has led to the development of High 
Strength Low Alloy (HSLA) steels. These steels utilize 
small microalloying element additions while Keeping carbon 
below 0.157 to develop the desired strength and toughness 
levels. 

The variety of steels classified as high strength low 
alloy (HSLA) has expanded greatly over the past decade. 
Orginally the classification applied strictly to carbon - 
manganese steels which were microalloyed with niobium, 
vanadium or titanium. The category of HSLA steels now 
includes acicular ferritic or low carbon banitic steels, 
higher carbon more pearlitic steels, quenched and tempered 
steels, dual phase steels, and cold rolled and tempered 
steels. This paper will deal with acicular ferritic HSLA 
steels where соррег 15 the primary strengthening 
microalloying constituent. When referring to HSLA steels 


herein this 1s the intent. 


The ability of Cu additions to strengthen steels has 
been Know since the 1930’s; however, commercial development 
and production was slow to proceed until the late i960’s 
[Ref. 3). The Key reason for the slow progress in developing 
this type of HSLA steel was the deterioration of the not 
workıng properties of Cu bearing steels [Refs. 4, 5). Once 
the problem of "hot shortness" was overcome а rapid 
development of a variety of Cu bearing HSLA steels followed. 

During the 1970's several Cu bearing low alloy steels 
with Similar chemical compositions were developed and 
tested. Various trade names are: NICOP, IN-787, and NICUAGE 
İÇE 1. High yield strength, above ТО KSI, improved 
weldability, toughness, ductility, and corrosion resistance 
over conventional steels has been reported for these new 
HSLA steels. (Ке%Ұ5. 6,7,8) 

Ihe military has certified a low alloy Copper - Nickel 
steel for structural uses, which 1s quite Similar to the 
above mentioned commercial steels, designated HSLA - 80. The 
chemical composition of HSLA - 80 (MIL-S-24645) is listed in 
Table I of Appendix A which ıs taken ın it’s entirety from 


Reference 9. 


В. INFLUENCE OF ALLOYING ELEMENTS ON HSLA STEELS 
A portion of the Fe-Cu phase diagram is shown in Figure 
1 [Ref. 10). Wilson [Ref.5:pp. 164-165) has verified that a 


sufficiently hardenable Fe-Cu alloy can be made to transform 
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supersaturated ferrite. As the solubility of copper іп 
ferrite is less than in austenite some copper may 
precipitate in the ferrite however, the equilibrium 
Solubility is not reached on cooling. Subsequent aging heat 
treatment then produces high strength levels by uniform 
precipitation of a copper rich epsilon phase which appears 
as rods or spheres. Quenching from elevated austenitizing 
temperatures causes significantly more copper to remain in 
solid solution than а1г cooling. Tne subsequent 


precipitation of epsilon copper particles in the ferrite by 
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heat treating provides the primary strengthening mechanism 
of this type of HSLA steel. [Refs. 11,12) 

The microstructure of HSLA - 80 (Class 3 - quenched and 
aged) varies, ( depending on cooling rate from the austenit- 
ization temperature ), from polygonal/acicular ferrite at 
high cooling rates ( thin plates ) to a polygonal ferrite 
matrix with dispersed groups of cementite particles for 
slower cooling rates ( thicker plates ) (Ке. 10: pp. 7-12). 
Steels with acicular ferrite microstructures exhibit much 
higher strength than those with polygonal ferrite 
microstructures [Ке?. 13). Acicular ferrite, synomymous with 
bainitic ferrite, differs from polygonal ferrite in that 
астси! аг теграсе exhibits lath like ferrite grains 
containing а high dislocation density. A key addition to 
HSLA - 100 is niobium. Its addition to these copper bearing 
steels is primarily for grain size refinement. This 18 
accomplished іп two ways, by the precipitation of niobium 
carbonitrides during the austenitization (class 3 plates) 
process and by retarding austenite recrystallization during 
hot rolling [{Ref.ie:pp. 656-659]. Niobium also provides some 
Precipitation hardening effect. 

In these steels the potential problem of hot shortness, 


the formation of low melting point copper rich phases whicn 


can cause fissured surfaces during thermal mechanical 
processing, is prevented by nickel additions to copper 
Dearing steels. However, the primary reason nickKel is added 
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to these steels is its beneficial effect on toughness. AS 
with niobium, a strength increase is also observed with 
nickel additions. Finally, since nickel remains with copper 
during remelting, scrap can be used in melts of other steels 
without the potential harmful effects of copper alone (Ref. 
14 |. 

Chromium and molybdenum are necessary to retard the 
epsilon copper precipitate nucleation and growth, during 
quenching form the austenitizing temperature, Known as auto- 
aging. This enables closer control of the finished product 
and thus more consistency in mechanical properties. (Ref. 
15) 

Manganese, as with chromium and molybdenum helps to 
suppress polygonal ferrite formation, thus adding 
transformation substructure strengthening to these steels’ 
overall strengthening components (Ref. 10:pp. 3-4). 
Manganese increases the hardenability of HSLA steels as it 
does conventional steels. 

Silicon is added as a deoxidizer and the aluminum 
present acts to enhance grain refinement. Impurity elements 
such as phosphorous and sulfur are Kept to a minimum by 
direction in the military specification for HSLA - 80. The 
concern with phosphorous is embrittlement caused by the 
formation brittle iron and nickel phosphides [Ref. 1: Р! 
98), Sulfur is Kept as low as possible because a_ steel’s 


susceptability to lamellar tearing is proportional to the 
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sultur content (Кет. мед. This is accomplished by a low 
sulphur practice such as vacuum degassing and argon 
Injection with CaSı or Mg for sulfide shape control, as 


specified in Appendix B. 


e. INFLUENCE OF HEAT TREATMENT ON HSLA STEEL PROPERTIES 
Тһе ASTM heat treatment applicable to the copper 
bearing HSLA steels discussed herein is Class 3 ( quenched 
and precipitation hardened). For HSLA - 80 the austenitizing 
temperature range is 870 to 970 C (1600 to 1700 F). After 
water quenching, approximately 450 Mpa ( 65 Ksi ) of 
the total expected $550 MPa (80 KSi) yield strength is 
attained. Precipitation hardening at 540 to 665 C ( 1000 to 
1225 Е) supplies the remaining portion of the desired yield 
strength. This precipitation strengthening more than offsets 
any softening occuring at the precipitation heat treatment 
temperature. [Ref. ie:p. 656) 
1); Temperature effect on precipitation hardening 
In order to achieve the desired levle of strength, 
toughness and weldability of the precipitation hardenable 
Steels, various aging temperatures/times are used. There are 
three ASTM classifications for precipitation hardenable 
steels. Class 1  desiginated as-rolled plus precipitation 
hardened, yields tne nighest strength levels. Class е 15 
normalized plus precipitation hardened, this produces а 


lower strength than Class i but improved toughness. Class 3 
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1S quenched plus precipitation hardened, this Class provides 
the best overall level of toughness with strengtns 
comparable to Class AS noted earlier a Class 3 
precipitation heat treatment is required to provide the fine 
grained acicular ferrite microstructure. Jesseman and Murphy 
(Ref. 12:pp. 656) note that at this stage of production "tne 
relatively soft as-rolled, as-normalized ог  as-quenched 
conditions have good ductility and moderate tougnness. Cold 
forming at this stage 1S sometimes advantageous because 
lower press capacities are required." Then precipitation 
heat treating can ameliorate the effects of straining апа 
aging on toughness. It 1S noteworthy that post weld 
precipitation hardening can serve as a simultaneous stress 
relief thus reducing overall fabrication costs [Ref. Sepp: 
445-449). Since diffusion of copper in ferrite 1s involved 
in the strength determination of these steels, both the time 
and the temperature of the precipitation heat treatment 15 
important. Jesseman апа Murphy (Ref. 12: PP. 657-658} 
concluded that treating above 565 C (1050 F) produced a 
gradual softening. The rate of this softening was slow, due 
to the additions of molybdenum and chromimum, and thus 
easlly controllable. Additionally, raising the precipitation 
heat treatment temperature to 595 С (1100 Е) or above 
markedly improved CVN impact energy in Class 2 and Class 3 


plates. 
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e. Time effect on precipitation hardening 


The mechanical properties of copper bearing HSLA 
steels are largely determined by the size and amount of the 
epsilon-copper precipitates. These in turn are governed by 
the aging treatment. The workers in Reference 17 report that 
overaging 15 desirable. Overaging promotes high toughness 
and ıt reduces the sensitivity o£ tne steel to additional 
heating below the austenitizing temperature which could 
occur during welding or bending/snaping operations. Also, 
overaging was reported to lead to nigh toughness. Testing 
reported in Reference i12 revealed that the effect of time at 
aging temperature was notably less significant than the 
effect of temperature itself. Similar results were reported 
in Reference 17, where Class 3 steels only underwent a small 
change in properties when the aging time was varied thirty 
minutes at 899 C (1650 F). Several papers in the Conference 
Proceedings of International Conference on Technology апа 
Applications of HSLA Steels 33-6 October 1983 Philadelphia, 
Pennsylvania noted that degraded mechanical properties were 


restorable by reaustentization and aging treatment. 
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WE; BACKGROUND 


A. STRESS - STRAIN RELATIONSHIPS 

Many mathematical formulations have been developed to 
relate stress and strain in metals. Historically the 
relations developed attempted to relate stress - strain 
benavior from the onset of loading to the point of fracture. 
No single relation has gained universal acceptance due to 
problems associated with describing elastic and plastic 
behavior in a single equation. AS a result, although many 
expressions have been developed since НооКе” 5 law Was 
introduced in 1678, many are of limited utility (Ref. 18). 

When a material has experienced plastic deformation the 
linear relationship between stress and strain, described by 
Hooke's law, is no longer applicable. Figure 2 depicts a 
general stress - strain diagram for a material without а 
pronounced yield point [Ref. 19). The figure depicts the 
elastic region and two regions of plastic deformation. In 
the elastic range stress is directly related to strain 
through a constant of proportionality. Hooke*s law can be 
expressed as: 

5 : Ее 

Where S is the applied stress and e the engineering strain 
is the change in specimen length divided by tne original 


length. The constant of proportionality, E, is a measure of 
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Figure 2. True Stress-True Strain Curve for a 


Metal without a Pronounced Yield 

Point 
the materials stiffness and is referred to as Young’s 
modulus or the modulus of elasticity. Once the yield stress, 
generally taken to be the stress necessary to produce О.27 
plastic strain, is exceeded the load necessary to produce 
further plastic deformation increases. The material is then 
undergoing strain hardening, by plastic deformation. In this 
region between the yield stress and the onset of specimen 
necking stress has been related to strain by expressions 


such as the Holloman equation (Ке. 20), as shown in Figure 
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2. The range of nonuniform plastic deformation begins when a 
localized neck develops in the weakes portion of tne 
specimen. This neck causes a decrease the specimen  cross- 
sectional area; thus resulting in a decrease in load. Тпе 
load reaches a maximum at the onset of necKing, because tne 
decrease in cross-sectional area offsets the strengthening 
produced by strain hardening. In this region of the curve 
the relation between stress and strain becomes more 
complicated to express mathematically. The development of 
the necK causes a triaxial stress state to exist instead of 
uniaxial tension that existed up to the point of necKing. In 
describing the relation between stress and strain in this 
region the stress resulting from the triaxial stress’ state 
must be accounted for. [Ref. 19: рр. 4-21) 

Im recent years, attention nas focused оп tne 
development of analytical expressions for stress and strain 
ın the region between the yield stress and the point where 
necKing  commences (Ref. 21). A simple and commonly used 
expression relating stress and strain for a polycrystalline 


metal is the Holloman power function (Ref. 20:p. 374). 


Where g is the true stress and € the true strain. K is a 
constant, representing the true stress at a true strain of 


unity, called the strength coefficient. When logarithms of 
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this power function are taken and true stress plotted versus 
true strain a straight line fit is predicted. The slope Of 
the line has a value of n, the strain hardening exponent. 
Conway (Ref. 21: p. 156] notes tnat, although the equation 
calls for the use of true strain, "more consistency seems to 
be observed when true plastic strain is used". In this 
research the Holloman equation has been tested using the 


true plastic strain data obtained in testing HSLA- 100. 


В. INFLUENCE OF TEMPERATURE ON TENSILE PROPERTIES 
The strain hardening exponent, n, is a function of 

the materials strength level, chemical composition, and 
microstructure (Кет. 21: pD 157). A high yield strength is 
achieved when dislocation motion is impeded initially. 
Dislocation motion is impeded by obstacles to their movement 
such аз precipitates, impurities and other dislocations. 
Precipitates апа impurities distort ап otherwise perfect 
lattice and set up stress fields on the atomic level. When 
these stress fields interact With the stress field 
surrounding a dislocation its motion 15 impeded. Solid 
solution and precipitation strengthening are examples of 
mechanisms which take advantage of these stress field 
interactions to pin dislocations and thus strengthen a 
material. In addition to the above mentioned obstacles to 
dislocation motion, there is an inherent resistance within 


a crystal lattice to dislocation motion. This resistance is 
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termed the Peierls force and it 1S strongly related to the 
directionality of bonding of the material. A moving 
dislocation causes bond angle distortions. Covalent and 
lonic materials are strongly directional in their bonding. 
The bond angle distortion necessary for dislocation motion 
in these materials is thus difficult to overcome. In tnese 
materials tne Peierls force is the primary obstacle to 
dislocation motion even when lattice vibration energy 15 
enhanced at high temperatures. Body centered cubic materials 
develop a directional bonding component at low temperatures. 
The movement of dislocations ın body centered cubic 
materials is thus strongly inhibited at low temperatures 
by the Peierls force. This effect is nullified at high 
temperatures where thermally enhanced atomic vibration 
overcomes the effect of the rereris force. It ise thereto 
expected that yleld strength of HSLA - 100, a body centered 
cubic material, will exhibit rapidly increasing yield 
Strength with decreasing temperature. An increase in yield 
strength in tnis manner will influence the strain hardening 
exponent. Figure 3 [Ref. 19: p. 33) illustrates this effect 


for molybdenum a body centered cubic material. [Ref. 22) 


(> INFLUENCE OF STRAIN RATE ON TENSILE PROPERTIES 
Strain rate can markedly affect the relationship between 
stress and strain in a similar way to temperature. 


In general the strain hardening exponent increases with 
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Figure 3. Strain Hardening Exponent of 
Molybdenum as a Function of 
Temperature 
increasing strain rate [Ref. 21: р. 157}. With conventional 
tensile testing machines, where a constant loading rate is 
15 imposed on specimen, the effect of necKing is to increase 
the strain rate locally. The reduced cross-sectional area in 
the neck increases the strain апа, as the loading is at a 
constant displacement rate, the strain rate increases. The 
rate of change of the strain rate continues to increase as 
the cross-sectional area decreases throughout the test. 


Tegart states that "the problems associated with necKing are 
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accentuated at high testing speeds because adiabatic heating 
becomes localized in the necKed region" [Ref. 19:рр. 37-38). 
The experimental approach used in this research allows a 
tensile test to be conducted at constant strain rate. The 
rate of specimen diameter change, a direct measure of strain 
rate, is the controlling variable. Hourglass shaped 
Specimens are used to ensure necking occurs at the minimum 
diameter. A diametral extensometer, fitted to tne minimun 
diameter, continually follows the minimum specimen  cross- 
section, providing feedback to the controlling system in 
order to maintain the constant rate of change of specimen 


diameter. 


D. SCOPE AND OBJECTIVES OF PRESENT WORK 

The nominal composition for HSLA - 100 steel is listed 
in Appendix A. Increased amounts of copper, nickel and 
manganese over that in the currently certified Navy steel 
HSLA .- 80 provide the desired increase in yield strength, 
but before using this material in Naval ship construction, 
the resistance to brittle fracture must be evaluated and 
understood. Existing models for cleavage fracture of steels 
use the ever present iron carbides as crack initiation 
Sites. However, the low carbon content (0.047) of HSLA - 100 
necessitates research to develop an applicable model. (Ref. 


ез) 


се 


Three regions of fracture behavior, ductile, transition 
and brittle, occur in steels (Ке. es The terms ductile 
and brittle describe the amount of plastic deformation 


occuring at the tip of a crack propagating in a the steel. 


Ductile behavior, resulting from the nucleation, growth and 
coalesence Of mıcrovolds, ıs characterized by significant 
levels of plastıc deformatıon ahead of the crack tip. їп а 


brittle fracture very little plastic deformation at the 
crack tip 15 evidenced. In the tensile testing of steels, 
ductile behavior is observed above a certain critical 
temperature, and cleavage, primarily a brittle process, is 
observed below the critical temperature. The critical 
temperature ıs termed the Ductile te Brittle Transition 
Temperature (DBTT). [Ref. 25) 

The transition from ductile to brittle fracture behavior 
occurs over a range of temperature in which the fracture is 
neither completely ductile nor completely brittle. AS a 
ductile failure is normally preceeded by pronounced yielding 
11 is desirable to have a low transition temperature. 11115 
precludes failure ina brittle manner, where cracks can 
propogate catastrophically. AS strength levels in a metal 
are raised, by various means, there 1S a corresponding loss 
in the materials ductiliy. The loss of ductility leads to 
the fracture mode transition from ductile to brittle. Thus 
as strength increases, the DBTT for a given metal usually 


increases. 


e3 


The DBTT for a particular steel is dependent on factors 
such as tne chemical composition, microstructure, and 
crystal structure of the steel, as well as the temperature, 
state of stress, and strain rate at which it is tested. The 
chemical composition, effects of microalloying additions, 
and microstructure of HSLA - 100 are discussed with an 
emphasis on strengthening in the introduction to this work. 
With respect to DBTT, the effects of individual alloying 
elements is difficult to evaluate. However, in general 
nickel 15 observed to improve toughness and lower DBTT in 
steels containing less than О. 407 carbon. Interstitial atoms 
such as carbon and nitrogen can pin dislocations thereby 
increasing yield strengtnh. Increasing the amount of these 
atoms present produces a loss of ductility and an increase 
in DBTT. The effect of the Peierls force on the yield 
strength of body centered cubic materials as temperature 
15 decreased is discussed above. The increased yield 
strength of body centered cubic metals at low temperatures 
causes ductile to brittle transition. When the stress 
necessary to cause dislocation motion exceeds that for 
cleavage, brittle fracture results. Similarly, increasing 
the Strain rate promotes brittle fracture because 
materials which exhibit a strongly increasing yield strength 
with decreasing temperature also exhibit an increasing yield 
Strength with increasing strain rate [Ref. Ce: pp. 211-214). 


In order to remove the effect of increasing Strain rate on 
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DETT, the tensile tests ın this research were conducted at 
constant strain rates as discussed previously. (Ке. 26] 

The first phase in the fracture model development is to 
examine the quasi-static fracture behavior Of HSLA  - 
100 steel.The objective of the present work ıs to develop 
the true stress - true strain tensile curves as a function 
of temperature. This information will be later used іп а 
finite element analysis of the crack tip fracture behavior 


of this material. 
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ТЭРЭ” EXPERIMENTAL PROCEDURE 


A. MATERIAL 

Appendix A lists the interim material specifications for 
trial commericial production of HSLA - 100 steel plates. A 
3emm  (1-1/4 inch) thick plate of HSLA - 100 steel (Plate +k 
5644 -16B) meeting these specifications was prepared by tne 
supplier. The plate was provided to the Naval Postgraduate 
School for examination by David Taylor Naval Ship Research 
and Development Center. The plate was heat treated by 
the supplier ру austenitizing at 949 С (1650 Е) for — е 
minutes and water quencned; and subsequently aged at 615 C 
(1050 F) for 7O minutes and water quenched. This resulted in 
the strength properties reported in Table I, according to 


tne supplier. 


TABLE I 


STRENGTH PROPERTIES OF PLATE # 5644-16B (AS REPORTED BY 
THE SUPPLIER) 


Ultimate 
Yield Tensile ^ Reduction 
Strengtn Strength 7 Elongation in area 
(Ksi) (Ksi) 

Тор 
Transverse 101 147 c 65 
Bottom 
Transverse 106 139 e 3 65 
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B. TEST APPARATUS 

In this research tensile tests were conducted with a 
Material Test System (MTS) 810 apparatus. On this system tne 
loading is provided viaa hydraulic actuator апа grip 
assembly to a threaded specimen receptacle. A  diametral 
extensometer was used to measure diametral diaplacement 
which was used as the test controlling variable. Load cell 
and extensometer output voltages were monitored by a digital 
voltmeter. The output voltages are converted to load and 
diametral displacement by a computer program. The computer 
program for collection of output data is listed in Appendix 
еи The frequency of sampling the output voltages by the 
digital voltmeter is determined by the collection program. 
If the user selects no additional delay between samplings 
the voltmeter is triggered by the computer to sample the 
output voltages from the MTS 810 at approximately 4 
samplings per second. Thus when monitoring load, diametral 
displacement and hydraulic actuator piston stroke, all three 
channels from the MTS 810 can be sampled at least once a 
second. The program allows the flexibility to input an 
additional delay between samplings. In the testing conducted 
for this research no additional delay was requested for the 
first 50 samplings on all tests. In the intervals between 51 
toweoo, 201 to 400, and 410 to 500 nominal sampling delays 
were Zero, 1 and 5 seconds respectively. The equipment used 


to conduct the tensile tests, collect, reduce and display 
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the output data are as follows: 


1. MTS Closed-loop Electrohydraulic Testing System 


a) MTS Model 312.41 Load Frame 

b) MTS Model 661.21A -O3 Load Cell (85 Kip) 
c) MTS Model 410.31 Function Generator 

d) MTS Model 506.20 Hydraulic Power Supply 


e. MTS Model 651.iXA Enviromental Chamber (Modified) 


a) MTS Model 409 Temperature Controller 

b) MTS Diametral Extensometer Model 632. 19В-21 
(Modified) 

c) MTS Extensometer Model 613. 20B 


Sip Hewlitt-Packard Data Acquisition System 


a) 9826 Computer 

b) 3497A Data Acquisition Control Unit (DVM) 

C) 3437A System Voltmeter 

а) 2617G Printer 

e) 72205B Plotter 

Figures 4a and 4b, are photographs of the testing system 

and Figure 5 is a photograph of the acquisition and 
reduction system used in this research. Figure 6 illustrates 
the enviromental chamber аз modified. The enviromental 
chamber was modified to allow either liquid carbon-dioxide 
or liquid nitrogen to be used as the cooling medium. An 
operators checklist and a detailed operational sequence to 


conduct constant Strain rate tensile test are listed in 


Appendix B. 


Ç: SAMPLE PREPARATION 
The plate, once received at the Naval Postgraduate 
School was cut and machined into tensile test specimens. Two 


uniform gage-length specimens were made in accordance with 
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Figure 5. Hewlitt PacKard 9826 Computer and 
Data Acquisition System 


Figure 7. Twelve hourglass shaped specimens were made іп 
accordance with Figure 8. The samples were cut from the 
plate parallel to the rolling ( longitudinal ) direction in 
all cases to ensure the consistency of the results. The 
hourglass specimen design was selected to ensure that 
fracture occured at the minimum specimen diameter where the 
Strain 15 measured continously from test start to fracture 
Бу using a diametral extensometer. The data thus obtained 
could then be used to determine the appropriate constitutive 


equation for this material as a function of temperature. 
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1- 25 KIP Lood Cell 7T - Extensometer Electrical Hook-up 


2- Load Cell Extension 8- Thermal Couple Junction Box 
3- Actuator Extension 9 - Seal 

4- Thermol Hydraulic Grip 1O- Spirol Woshers 

5- Diametral Extensometer 11 - Actuator 

6- Extensometer Mount 12- Hourgloss Specimen 


Figure 6. Enviromental Chamber, as Modified 
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D. COLLECTION, REDUCTION AND DISPLAY OF THE OUTPUT РАТА 
During а test, data is collected by the acquisition 
System using the program "JHCOLLECT", Appendix C lists this 
program. Upon completion of a tensile test the program 
allows the renaming of data files. The data files аге 
generic in nature and are renamed after each test run with 
an appropriate specimen number, 1. е. 1044, Dial etc. 
Appendix D lists the data reduction program "JHREDUCE". 
Running this program computes true strain/strain, log true 
stress/log true strain, corrected true  stress/strain, 
plastic strain, log corrected true stress/true plastic 
strain and stores these values in arrays. The array names 
match the specimen numbers i.e. Stressi, Straini. Appendix E 
lists the plotting program "JHPLOT", Running this program 
allows graphs of the array values stored by "JHCOLLECT" and 
"JHREDUCE". Appendix F lists the program "POWERFIT". Running 


this program plots the log corected true stress vs the log 


plastic true strain from the stored array values. 
Additionally, the strength coefficient, K, and strain 
hardening exponent, n, for the Hollomon power function are 


determined [Ref. 20:pp. 374-375]. Using the computed values 
of slope n and intercept log K a line is plotted between 
true plastic strain values of .ОО1 апа 1.О. A correlation 
coefficient, R, for the power function is determined by the 
powerfit program using a least squares approximation. Тпе 


Correlation coefficient compares the fit between the log 
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Corrected true stress versus log true plastic strain plot 
and the line generated using the power law coefficients 


determined. 


E. TEMPERATURE MEASUREMENT AND CONTROL 

Temperature measurement in this research was accomplished 
using chromel/alumel thermocouples. Chromel/alumel 
thermocouples are useful over the temperature range -200 to 
300 C. Their uncalibrated accuracy is * 3 C in the range О 
to 400 С [Ref. erl.: Many thermocouples normally used for 
high temperature monitoring show a decreasing temperature 
Sensitivity with deceasing temperature. For chromel/alumel 
thermocouples below approximately -130 C the temperature/ 
voltage relation displays this decreasing sensitivity  [Ref. 
eo}. The use of a Known fixed temperature reference 
Junction, near the measured temperature, ls used to improve 
accuracy. Several thermocouples were tested in an ice water 
batn, zero degrees centigrade, and all indicated O C, tnis 
verified the calıbratlon of the Newport temperature 
monitoring device. Additionally, the thermocouples were 
calibrated at -196 C using liquid nitrogen. 

Two chromel/alumel thermocouples per test sample were 
used in the sub Zero tensile tests conducted in this 
research. The samples were spot welded to the hourglass 
specimen, Figure 8, approximately 0.35 inches on each side of 


the specimen minimum diameter. 
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Low temperature tests were initially carried out using 
the MTS model 409 temperature controller. Tne controller 
activated a solenoid to either admit or stop the flow of 
liquid nitrogen to the enviromental chamber. The controller 
uses a thermocouple to compare sensed temperature with а 
manually adjustable setpoint. The coolant flow entered 
through the back of the chamber, by plastic tubing, and was 
then directed either on the specimen or the actuator grips. 
This arrangement was satisfactory for tests in which the 
lowest temperature achievable was desired. Once the specimen 
thermocouples were stable, at essentially liquid nitrogen 
temperature, the tensile tests were conducted while 
maintaining the flow of coolant to tne chamber. Tnis method 
of cooling the samples was not used for test temperatures 
between room temperature and liquid nitrogen temperature. In 
this range the on/off action of the solenoid/controller 
caused the temperature to vary as the coolant flow pulsed on 
and off. Additionally, the pulsing of coolant flow on the 
diametral extensometer produced an error signal from the 
extensometer which prevented starting the hydraulic system. 
This ıs a result of the difference ın temperature of the 
extensometer and that of the liquid nitrogen. To conduct tne 
tensile tests at temperatures below room temperature апа 
above liquid nitrogen temperature the coolant flow system 
was modified. Figure 9, is a photograph of the inside of the 


enviromental chamber with the modified coolant system in 
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Figure 9. Enviromental Chamber Interior, Sbowing Modified 
Coolant System 
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place. Liquid nitrogen is directed by tubing to machıned 
paths in the actuator grips. Thus, without coolant flow 
directly on the specimen, the Sample is cooled by conduction 
from the grips to the desired test temperature. Once the 
temperature has stabalized, the flow of liquid nitrogen to 
the grips can be stopped and the grips provide a heat sink 
to maintain the sample at the desired test temperature. The 
thermocouples were monitored throughout each tensile test; 


and the average is reported as the test temperature. 


Е. MICROSCOPY 
1, Optical Hicroscopy 
A polished and etched (27 nital) HSLA - 100 sample 
was photographed using a light microscope. Figure 10 (а) 
and Figure 10 (b) are representative of the microstructures 
observed. The microstructure is predominatly banitic and was 
uniform throughout the thickness of the plate, except for 
regions of increased grain size near the plate edges. 
с: Scanning Electron Microscopy 
The scanning electron microscope (SEM) was used to 
examine the HSLA - 100 tensile specimen fracture surfaces 
after testing. A discussion of the typical fracture surface 


and micrographs is presented in the results section. 


3. Transmission Electron Hicroscopy 


Figure 11 is a representative thin foil micrograph 


ОЁ the HS1A - 100 Steel used in this research. The 
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Figure 10. 


Light Micrographs of HSLA - 100 
Steel (a). Microstructure at 500X 
(b). Microstructure at 1 ОООХ 
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Figure 11. Thin Foil] Transmission Electron Micrograpn 
of HSLA - 100 Microstructure 
microstructure is characterized by elongated parallel laths, 
less than 1 micron in width, containing а very high 
dislocation density. In addition, a uniform distribution of 


very fine niobium carbonitrides was also observed. 
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EM. RESULTS AND DISCUSSION 


A. MEASUREMENT OF TRUE STRESS 

Once atensile test specimen begins to neck a triaxial 
Stress state exists at the minimum cross-section, Figure e. 
In order to obtain the true stress in the specimen a 
correction for this must be applied to the measured stress. 
Tegart discusses various expressions for tne stress state 
in the neck but comments that the Bridgman correction 
most accurately estimates the degree of stress concentration 
[Ref. 19: Dp. 21). The Bridgman correction can be expressed 
as [Ке*#. 29]: 


Cav 


° + 2 Bjr, jin (1 + ту Е) 
where the measured average stress Jay is reduced to a 
corrected value og. R is the radius of curvature of the neck 
Вили is the radius of the cross-section at the neck. 
memi tial radius of curvature of the hourglass section 
ОГ ле specimen used in this study is 1.1 in. ; this results 
trail correction of O.9720,, . The objective of this 
research was to measure true stress and true strain from the 
bop << of loading to the point of fracture. Thus this initial 
correction has been applied to the true stress up to the 
onset of necKing. Once a test was completed the final radius 


ӨР curvature Was measured by first fitting the specimen 
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back together and magnifying the necked region with ап 
overhead projector. Then comparing the fit of various 
circular templates to the projected image produced the final 
radius of curvature (when divided by the magnification 
factor). This value along with the measured final  cross- 
section radius allowed determination of a final correction 
factor for each test specimen. In order to gradually cnange 
the magnitude of the Bridgman correction from the onset of 
necking to fracture, a linear relation was developed between 
the value at the onset of necKing and the fracture point 
for each specimen. This relation was then applied to the 
measured true stress values after the maximum load was 
reached. The justification for using a linearly changing 
correction factor derived from the fact that the tests were 
conducted with a constant diametral displacement rate. The 
computation of the linear relation for the correction factor 
and its application to individual points is accomplished by 


the data reduction program, Appendix D. 


B. MEASUREMENT OF TRUE STRAIN 

The true strain was determined using an MTS model 
632. 198-21 diametral extensometer. Figure 12 shows a typical 
series 632.19B adjustable diametral extensometer and lists 
the operating characteristics based on specific model 
number. The extensometer contacts, shown more clearly in 


Figures 13 and 14, were not capable of following the 
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MODEL 632.19B ADJUSTABLE 
DIAMETRAL EXTENSOMETER 


TOP VIEW 





MODEL 
632.198 









532.198-20 532,198-21 532.198-23 


Gage Diameter Adjustment 3,6 mm to 13 mm 3,6 mm to 13 mm 3,6 mm to 13 mm 
0.140 in, to 0.520 in, 0.140 in, to 0,520 ín. 0.140 in, to 0,520 in. 


Maximum Range 21,0 mm £1,0 mm 21,0 тт 
(Глатесга!) £0.040 in. £0,040 in. £0,040 in, 


Linearity ## | 0.25% of range — 0,257, oí range 0.257, oí range 


0.3% of range | . 3^, oí range 0,3% ot range 
Енот F to + 250°F = Fin + 150°F = -—-—Ü 


Max Operating Freq with 

Negligible Distornon 12:13 ша 

Effective Inertia] Mass | Effective Inernal Mass | 45шғапа | 45 grams 63 grams 
Approx Clamp Force 250 grams min 250 grams min 250 grams mio 
on Soecimen 325 grams max 325 grams max 325 grams max 


Recommended Caubrated 20,040 in./2l,0 mm 20,040 in, /21,0 mm 
“| Ranges for 10V full scale 20.020 іл. /+0, 5 тит £0.020 1n,/£0, 5 mm 





output from MTS Trans- " 20.008 10. / £0, 2 mm 20.008 1n,/£0, 2 mm 
ducer Conoitioner*s#s 20.004 in. /20,1 mm £0.004 1n./ £0. 1 mm 





*ALL models include case, instruction manual, and mating cannector (Amphenol 165-14), 


esWhen calibrating over a range from tension to campression, linearity ıs somewhat degraded: however, 
this is electromicaily compensated to the stated value Бу the recammended MTS Transducer Conditioner 
modules, 


sesimmersible in mnst fluids used for specimen heating and cooling, including alenhol, acetone and 
silicone fluids. 


=saeRecommended Traosducer Conditioners: 440,21, 425,41 (option B), 406 (optinn A), Other cnnditioners 
may ое useo imaximum excitation is l2v, output is approximately 3mv/ v), 


Figure 12. Model 632. 19B Diametral Extensometer 
and a Table of Specific Model 
Operating Characteristics 
dıametral displacement once neckKing produced a radius of 
curvature below .5 inches. The contacts were modified to 
allow the measurement of strain up to the minimum radius of 
the neck which preceeded fracture. Figure 15 is a photograph 


of the extensometer contacts after modification. The 


limited range of accurate unmodified extensometer travel 1s 
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Electrical 
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Mounting 
Base 





Stationary 
Arm 







Adjustable 
Contact 
Hold -Down 
Screws 





Contacts 


Extensometer 


Spring- Loaded 
Arm 


Specimen 


Figure 13. Typical Series 632 Adjustable Diametral 
Extensometer - Attatchment to Specimen 


reflected in Figure 16, the load vs. diametral displacement 
curve for hourglass specimen number 4. Figure 17, the load 
displacement curve for hourglass specimen number 5, 
illustrates the improved range of measuring diametral 


displacement once the extensometer was modified. 


Түп 





Figure 14. MTS Diametral Extensometer with 


Mounting Assembly and Electrical 
Connection 


С. DETERMINATION OF THE MODULUS OF ELASTICITY 


The value of the modulus of elasticity or Young's 
modulus for the HSLA - 100 steel tested in this research was 
determined experimentally. The test of hourglass specimen 
number 4, Figure 16, indicated yielding occured for loads 
above approximately 5.5 Kips. A uniform gage-length specimen 
equiped with an axial кылгы r was loaded to 4 Kips in 
load control at a rate of 4 x on Kip/sec. The specimen was 


loaded to 4 Kips then returned to zero load at the same 


rate. This was done twice and the value of Young's modulus 


determined by the slope of the stress - strain curve 
generated by an X - Y recorder. The average value of Young's 
6 


modulus for the two tests is 8.414 x 10 psi. This value was 
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unmodified contact arms 
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modified contact arms 


Figure 15. Model 632.19B-21 Diametral Extensometer Contacts 
(Unmodified and Modified) 
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then used along with the corrected true stress іп the 


determination of the true plastic strain, as follows: 


where ер is te true plastic strain, е, the total “true 


Strain, og tne corrected true stress and Е is Young's 


modulus. 


D. TENSILE PROPERTIES OF HSLA - 100 STEEL 

Table II summarizes the mechanıcal properties for HSLA - 
100 resulting from this research. Tne test temperature for 
hourglass specimen no. 6 was taken as the average of the 
test start and test complete temperatures. There was a 36 С 
change in temperature from test start to specimen failure as 
the coolant supply exhausted prior to starting the test and 
prior to the actuator grips/extensions equilibrating at the 
desired test temperature. Im all other tests Fine test 
temperature, taken as the start/finish average, varied less 
| 10 С from the start to finish. 

rm comparing the results reported by the plate 
manufacturer listed in Table II with those obtained in this 
Study Table I, an obvious difference exists. The uniform 
gage-length samples from this study exhibited comparable 
values for percent reduction in area (4 R/A) and ultimate 
tensile strengths (UTS) to those reported by the supplier. 


However, the .2% offset yield strength values are much 
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higher and the / elongation is much lower than reported by 
the supplier. The unexpectedly high yield strength results, 
of the room temperature tensile tests were reported to tne 


project liaison at David Taylor Research and Development 


TABLE II 


STRENGTH PROPERTIES OF HSLA - 100 PLATE # 5644-16B (AS 


DETERMINED IN THIS RESEARCH) - HOURGLASS SPECIMEN 
No. Average Yield Ultimate Elongation Reduction 
Test Strength Tensile in 1 inch in Area 
Temperature Strengtn 
(deg C) (К51) (Ksi) (7) (4) 
1 21 а а N/AÀ 63.0 
e ЕИ 127.0 156.9 N/A b 
3 20 a a N/A 62.7 
Р го 126.0 156211 Н/А 59.6 
5 24 130. 8 156. 1 М/А 63. 7 
6 -109 159.0 177.2 N/A #48. 8 
7 -176 184.2 201.2 N/A отха 
8 -196 а а Н/А етте 
9 -72 146. 8 164. 1 N/A 62 = 
10 - 27 137. 2 159. 3 N/A 64. 7 
11 -150 167.7 184. 2 N/A x54. 5 
12 -1e9 156. 7 1770 М/А #55. 9 
UNIFORM GAGE-LENGTH SPECIMEN 
1 23 132 21 142.6 12025 68.6 
2 ee 130.4 142.6 16.4 68.6 
a - no data collected. 
b - specimen not tested to the point of fracture. 
* - Specimen didnot fail at the minimum diameter. The / К/А 


in the table is based on the specimen minimum diameter 
and is therefore a conservative (low) value. 


Center, Mr. M. Vassilaros. Subsequent conversation with Mr. 


Vassilaros revealed that the plate received at the Naval 


Postgraduate School had not been heat treated properly and 
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that yield strengths above those in the interim HSLA - 100 
specification should be expected. 

In addition to the load versus diametral displacement 
curves, as shown in Figures 16 and 17, the reduction and 
plotting programs, Appendices D and E respectively, allow 
other useful curves to be generated. The next several 
figures will provide a sample of the various plots and serve 
to compare the resultS at room temperature to a test at 
-и1те C. 

The true stress - true strain curves at room temperature 
and -176 C are shown in Figures 18 and 19 respectively. Note 
tne marked increase in true stress and corresponding 
decrease in ductility in the -176 С temperature test. Аз 
expected, the strength is higher and ductility lower at -176 
C than at room temperature. Figure 20, applies the linearly 
varying Bridgman corrected true stress to the results shown 
in Figure 18. The maximum correction to the true stress for 
the triaxial stresses in the necked region of this sample is 
03955. Ine maximum travel (О. 072) of the dıametral 
extensometer was too small to follow the deformatıon process 
to the fracture point, the fracture point is plotted as an 
asterisk. The decrease in ductility at low temperatures, 
Figure cel allowed the extensometer to follow the 
deformation process to the fracture point. Tne log true 
stress-log true strain curves for room temperature and -176 


C are shown in Figures 22 and 23. when the true stress is 
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corrected for initial specimen geometry and the triaxiality 
associated with necking the resulting curves, Figures 24 and 
25, reflect a lowering of the log true stress values. The 
reduction іп corrected log true stress values over tne 
uncorrected values increases with increasing strain due to 
the decreasing radius of curvature in the necKed area. The 
log true strain values in Figures 22 through 25 are total 
true strain. By subtractıng the elastic strain from the 
total true strain an approximately linear true stress - true 
plastic strain results when plotted logarithmically, Figures 
26 and 27; the Holloman power function appears to closely 
describe the stress - strain benavior of tnis material. 
Figure 28 presents the yield strength of HSLA - 100 as 
a function of temperature. The rapidly increasing strength 
with decreasing temperature 1S a result of the increasing 
Peierls force with decreasing temperature for this body 
centered cubic steel. The percent reduction in area 
undergoes a rapid decrease at temperatures below -150 С, 
Figure 29. The three results between -1iO00 C and -150 С 
represent the minimum percent reduction in areas, since the 
specimens actually failed outside the minimum diameter. 
These results indicate that HSLA - 100 steel experiences 
little loss in ductility at temperatures above -150 С. The 
fact that specimens 6, 11, and 12 failed outside the minimum 
diameter is most remarkable. In all three cases significant 


necKing, based оп Z R/A, preceeded specimen failure. The 
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diametral extensometer remained in the necked region, 
following the deformation process throughout these three 
tensile tests. lhe fracture surfaces of specimens 6, 11 and 
18, revealed a mixture of ductile and cleavage behavior. А11 
three experienced axial cracking (parallel to the specimen 
axis). A disussion on the cracks, Known as delaminations ог 
Separations, is contained in the section titled microscopy 


oberservations. 


E. CONSTITUTIVE EQUATION TESTING 

In this research the Holloman power function, described 
earlier, was tested for applicability as a constitutive 
equation to describe the stress - strain behavior of HSLA  - 
100 steel. Table III is a tabulation of power law fit 


constants determined for each test Specimen. The constants 


were determined using a least squares approximation ( as 
discussed in the experimental section (Ref. 30]) to tne log 
true corrected stress - log true plastic strain behavior of 


tne material. 

A value of R equal to one is a perfect fit of the 
Straight laine; a correlation above .98 is considered a 
good fit. The calculations necessary to produce the results 
listed in Table III are preformed by the program in Appendix 
Е. The wide variation in the strength coefficient, and 


strain hardening exponent and the low values of the 
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correlation coefficient indicate that the Holloman power law 


1S not very applicable to HSLA - 100 Steel. 


TABLE III 


CONSTANTS FOR POWER LAW FIT (HOURGLASS SPECIMEN) 


No. Temperature Strain Strain Strength Correlation 
(deg C) Rate Hardening Coefficient Coefficient 
-4 Exponent 
xiO/sec n К (К51) К 
А го 9. 30 O. 0464 183.0 · 981 
5 24 9. 26 0.0779 204.2 . 972 
6 -109 9. 30 0. 0721 225.7 . 96e 
7 -176 9. 26 0. 0585 255. 9 ‚911 
8 -196 9. 35 а а а 
9 -72 9. 26 O. 0660 213.3 . 980 
10 -27 9. 26 0.0610 204.9 . 989 
11 -150 9. 35 O. 0600 237.0 · 971 
12 -129 9. 30 0.0783 240. 3 · 975 
UNIFORM GAGE-LENGTH SPECIMEN 
1 eo 4. 34 O. 0465 17 3446 . 989 
ге 9. 28 O. 0402 164. 7 . 969 


a - no data collected. 


The apparent good fit illustrated in Figures 26 
апа 27 15 1051 when the corrected log true stress scale 15 
expanded. An expanded corrected log true stress versus 108 
plastic true strain plot is shown for specimens 9 апа 10, 
whose correlation coefficients were high ( above . 980), in 
Figures 30 and 31. The data follows a flattened " S " shape 
instead of the straight line as predicted by the Holloman 
power law. This flattened " S " shape was observed in the 


corrected log true stress - log plastic true strain plots 
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for all tne specimens tested. Closer scrunity of Figures 26 
and 27, for specimens 5 and 7, reveals a flattened " S " 
shaped curve even on the broad corrected log true stress 
Scale. 

Conway [Ref. Fi PD. 163-169] discusses an alternative 
stress - strain relation when tne use of the power law is 
precluded. When the log true stress - log true strain curve 
results іп a flattened " S " snape, see Figures 24 and 25, 
the power law is not applicable. The alternative stress - 
Strain relation, purported to accurately describe the type of 
benavior reported herein, is the Voce relation  [Ref. 18]. 


The Voce relation is expressed as follows: 


s = а (S "m So) ДЕК 


Where S is the true stress, S the final constant stress 
attained at very large strains, S is the initial stress 
corresponding roughly with the O.17 yield stress. is tne 


true strain, K is a constant and e represents the natural 
logarithm function. A development of the Voce relation is 
presented by Conway (Ref. 2i:pp. 160-174). Although the Voce 
relation will not discussed further herein, a logical follow 


on to tnis work would be to test its applicability. 


F. FRACTOGRAPHY 
With the exception of the samples tested below -150 С, 


the fracture surfaces were characterized by delaminations, 
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which occurred as cracks running parallel] to the rolling 
direction. The specimens tested between -100 C and -150 C 
did not fail at the minimum diameter. In these specimens tne 
actual fracture surface occurred between .125 in. and .150 
in. from the minimum diameter. Two of these failures 
occurred above the minimum diameter and one occurred below 
the minimum diameter. 

Figure 32 is a photograph of the specimen tested at -109 
C and is typical of the specimens which did not fail at the 
minimum diameter. In Figure 32 the delamination, running 
parallel to the specimen longitudinal axis is quite evident. 
The fracture surface of this specimen is characterized by a 
mixed  ductile-brittle fracture mode, Figure 33. Near the 
delamination very fine microvoids, characteristic of ductile 
failure, are evident. While further from the delamination 
clevage facets prevailed. These failure modes, ductile and 
brittle can be seen more clearly in Figures 34 (a) and 34 
(D), respectively. The orgin of the delaminations, which are 
Planes of weakness parallel to the deformation direction, 
1s still controversial. One possible explanation 1s that an 
aligned microstructure, due to the deformation, coupled with 
inclusions and/or grain boundary carbides provide the weak 
interfaces which allow the delamination to occur (Ref. 321]. 
However, other authors have reported that this is not the 
Sole mechanism contributing to this behavior; but that 


crystallographic texture is also important [Refs. 32, 33). 


TO 
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Hourglass Specimen No. 


Figure «©. 





Fracture Surface of Hourglass 


Specimen No. 


Figure 33. 
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Figure 34. Fracture Surface of Specimen No. 6 (a) Adjacent 
to tne Delamination (b) Adjacent to the area in 
(a), away from the Delamination 


Te 


V. CONCLUSIONS AND RECOHHENDATIONS 


A. | CONCLUSIONS 

The HSLA - 100 steel tested in this research has 
excellent ductility above - 150 C. Rapidly increasing yield 
strength is observed as temperature decreases. 

The Hollomon power function should not be used as 
the constitutive equation for HSLA - 100 steel as it does 


not satisfactorily describe the stress - strain response of 


this steel. 


B. RECOMMENDATIONS 

The effect of temperature оп the tensile properties 
of properly heat treated HSLA - 100 steel plate should be 
determined. 

The Voce relation should be tested for applicability 
as a constitutive equation to describe the stress - strain 
response of HSLA - 100 steel. 

Tensile testing at higher strain rates should be 
conducted to determine the effect of strain rate, in 
addition to the effect of temperature, on the toughness 


benavior of HSLA - 100 steel. 
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APPENDIX A 


INTERIM SPECIFICATION FOR TRIAL COMMERCIAL PRODUCTION OF 
HSLA-100 STEEL PLATES 


Melting, Refining and Casting 

The heat shall be fully Killed and produced to fine 
grain practice. It shall be made with a low sulfur practice, 
vacuum degassed and argon injected with CaSi or Mg for 
sulfide shape control. The heat shall be ingot cast with 


bottom-pour molds to ensure good surface. 


Chemical Composition 


The chemical composition snall be as shown in Table I. 


Table I - Chemical Composition (Heat and Product 


Analysis) 

ELEMENT TARGET for Max. ^ by Weight Unless 
First Heat a Range is Indicated 

Carbon 0.04 O. 06 
Manganese 0.90 0.75 - 1.05 
Phosphorus ALAP x O. O15 
Sulfur ALAP O. 006 
Silicon 0. 25 0. 40 
Nickel 3. 50 8: 835 = 3. 65 
Chromium O. 60 0.45 - 0.75 
Molybdenum 0. 60 0. 55 - 0.65 
Соррег 1. 60 1.45 - 1.75 
Columbium 0. 025 0.02 - 0.06 
Aluminum O. 030 O. 020 - O, 040 
Nitrogen О. 010 0.015 


* AS low as possible 


74 


Hot Rolling 

Plates 1/4,3/4,1-1/4, and 2 in. thick shall be rolled. 
Extra care shall be taken to minimize rolled-in scale that 
could later interfere with achieving an adequate cooling 
rate during quenching from tne solution treating 


temperature. The plates shall be roller leveled while still 


warm after rolling. 


Heat Treatment 

All of the plates shall be solution heat treated for one 
hour at i650 F ( 934 C ) and platen quenched with high 
pressure water jets from above and beneath the plate. The 
quench water shall not exceed 100 F to ensure an efficient 
quencn. 

The plates shall be given an age hardening treatment 
using temperatures and times determined for each plate by 
preliminary tensile testing of samples from coupons aged at 
various conditions. Aging conditions for the plates shall be 
chosen so as to give the tensile properties listed in Table 


I. 


Mechanical Properties 
The heat treated material shall meet the tensile 
property requirements specified in Table II and the impact 


property requirements specified in Table III. 


то 


Table II = Tensile Properties 


Ultimate Tensile To be recorded for 

Strength, psi Information Only 

Yield Strength, со ан in, >O; T Sm. 

0, е, Offset, psi 100, 000 to 100, 000 to 
120, 000 115, 000 

Min. Elongation 12 18 

Ша 2 in., A 

Min. Reduction -- 45 


Area, Round Specimen, / 


The tensile properties shall be determined аз the 
average value of duplicate specimens from each plate tested 
іп accordance with ASTM method of testing E8. Full thickness 
flat specimens shall be tested for tne 1/4 - in. thick plate 
and standard round specimens O.505 in. in diameter shall be 
tested for the plates 3/4 in. thıck апа thicker. A11 


specimens shall be taken transverse to the primary rolling 


direction. 
Table III - Impact Properties 
Plate CVN 
Thickness, specimen Test Energy, wx 
Test in. Size Temp., F ft-lb 
бео 5mm x iOmm о + 3 28 
-120 + 3 15 
Charpy V-Notcn 
Transverse 
Фогэ 1.25, 10mm x 1000 О + 3 55 
2, OO - 120 + 3 30 


xx Avg. of three tests, minimum. 


76 


The Charpy impact properties shall be determined in 
accordance with ASTM method E23. Three tests transverse to 
the final rolling direction of the plate shall be conducted. 
No single value shall fall below the minimum average 
specified in Table III by more than 5 ft-lb for standard 


Specimens and 2-1/2 ft-lb for half size specimens. 
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APPENDIX B 


CHECKLIST AND EXAMPLE SETTINGS 


The purpose of this appendix is to provide a detailed 
checklist for conducting tensile tests on a Materials 
Testing System (MTS) 810 series system. Tne form of this 
appendix is that of an operators checklist followed by an 
operational sequence for conduction the constant strain rate 
tensıle test. It provides a sequence of operations апа 
references to information in the system technical manuals 
Nominal testing parameters are as follows: 

1. Strain rate - 9 30 X Td / вес. 

е. Total diametral displacement range - 90.072 in. 

3. A tensile test will be set up herein using a 
dual slope, hold at breakpoint, ramp and invert function 
generator set up to allow full extensometer travel. 

4, The initial diameter of the specimen will be 
02252111. and the initial specimen gage length у111 be 1.00 
in. aS in Figure 8 for a hourglass shaped specimen. 

>. Note: Safe operation of MTS equipment is 
contingent upon Knowledge contained in the introductory 


section of the system operating manual. 
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CHECK RECORD MANUAL 
PROCEDURE ADJUSTMENT REFERENCE 


НЭГЭ ау CON ОВ ПРЕВОЈ ИО МИ e vi» 


1. Turn CONSOLE POWER on 413. 05 OP, 


_2. If the load cell, Extensometer 440.21 OP, 
clip-on gage, or LVDT is changed, page 6 
ensure that the proper range card 
is installed in the appropriate 440.22 OP, 
transducer conditioner. NOTE: CRY- page 6 


ogenic diametral extensometer 
model No. 632. 19B-21 


3. Select desired controlled X LOAD 440.31 OP, 
variable. Control panel o. STRAIN page 2 
interlock must be open ___ 5ТКОКЕ 
(RESET lit). 


4, Select desired LOAD «47 FS RANGE 440.21 OP, 
operating range. Full Scale = + 20 KIP page 3 


_ 100 
^X 50 
25 
10 


ЕБ о) го = 


STRAIN 
+ Е5:. 040 IN. RANGE 440.21 OP, 
page 3 
100 
50 
сэ 
10 


+= ОЈ ГО — 


|| Бе 


STROKE + FS 440.22 OP, 
FULL SCALE = + in. page 3 


UJ 


100 
50 
=> 


ој Го = 
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СНЕСК КЕСОКО MANUAL 


PROCEDURE ADJUSTMENT REFERENCE 
EX 1 Ч 
_5. Adjust Digital CONTROL HODE 410. 31 OP, 
Function Generator 
REMOTE 
_Х LOCAL 


SINGLE CYCLE 
OUTPUT 


RAMP 

SINE 
HAVERSINE 
HAVERSQUARE 
INVERT 


ђе] | | ђе 


ВКЕАКРОТМТ 
КЕМОТЕ 


X NORMAL 
REVERSE 


REVERSE 


90 
РЕКСЕНТ 


DUAL SLOPE 

HOLD AT BRKPT 

RAMP THRU ZERO 

MANUAL BRKPT (OVERRIDE) 


ШЕ 


360 
КАТЕ 1 
1000 
КАТЕ г 
6 Adjust SEAN for 100 440.13 OP, 
desired Digital Function SPAN 1 pages3-7 
Generator siginal 
amplitude. 
_T. Adjust Digital Display INPUT SELECT 430.41 OP, 
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СНЕСК КЕСОКО MANUAL 


PROCEDURE ADJUSTMENT REFERENCE 
indicator. page e 

-Х 1 (LOAD) 

_х 2 (STRAIN) 

X 3 (STROKE) 

o Od ( INPUT options 4-6 are 


availabel ). 


n OE eco R$ RNENESARBRSADJUSIMENTIS 5.9.2939 


6. Adjust Limit Detectors, XDCR 1 (LOAD) 440.41 OP, 
if applicable. page 4 
100 
UPPER 
NOTE: 
This step may be __Х (+) 


performed after test (-) 
has started. See 
440.41 OP, page 5 


10 
LOWER 





E ty 
х_ (-) 


X INTERLOCK 
INDICATE 


XDCR 2 (STRAIN) 440.41 OP, 
page 4 

100 

UPPER 


X (+) 








100 
LOWER 


(+) 
X (7) 





_X |. INTERLOCK 
INDICATE 
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pressure condition). 


If at any time an emergency occurs, 


, 94 ò % о ò a ò 9 а 9 9 а ә 4 е p 


8e 


. е 9 0 % 9 ò b 


СНЕСК КЕСОКО MANUAL 
PROCEDURE ADJUSTMENT REFERENCE 
XDCR 3 (STROKE) 440.41 OP, 
100 раве 4 
ПРРЕК 
БА) 
-— МЯН 
100 
LOWER 
( *) 
X d) 
X INTERLOCK 
INDICATE 
RE PRELIMINARY ADJUSTMENTS AND HYDRAULIC TURN ON ...... 
_9. Monitor DC ERROR on 440.13 OP, 
the Controller meter. page 8 
_10. Null the meter using the 440.13 OP, 
SET POINT control. page 3 
11. Push RESET on the Control 4413.05 OP, 
Panel if it is lit. page 2 
NOTE: If at any time 
RESET will not extinguish, 
loooK for an abnormal 
condition as described on 
the last page of this checKlist 
under IN CASE OF SYSTEM SHUTDOWN. 
_12. Set AUTO RESET switch to OUT. 440. 14/. 14А ОР, 
page 2 
13. Push HYDRAULIC PRESSURE 413.05 OP, 
on the Control Panel (LOW page 6 


pusn EMERGENCY STOP 


СНЕСК КЕСОКО MANUAL 
PROCEDURE ADJUSTMENT REFERENCE 


E 


ШТ! 


ET 


Miz. 


* * * е 


Lower Hydraulic Actuator SET POINT CONTROL full CCW 
to bottom stop; then turn 
off hydraulic pressure. 


Install Specimen in the upper grip. 
Tighten collar with spanner wrencn. 
Plug thermocouple(s) into receptacles. 


Push reset on Control Panel 

and select low pressure. By 

adjusting the SET POINT control 

CCW slowly raise the actuator up to 

the specimen. Thread tne locking collar 
into the lower grip, as the actuator 
moves upward, using the spanner wrencn. 


Check that LOAD 18S zeroed. Adjust 440.21 OP, 
1f necessary. page 6 


The extensometer is clamped to the See Technical 
specimen with a spring-loaded arm on Manual- 

one side and an adjustable station- TRANSDUCERS 
ary arm on the otner. The adjustable 

arm contact can be changed to tne 

desired gage length by loosening tne 

contact hold-down screws, moving tne 

contact to the desired gage length, 

and the retightening the nold-down 

screws. To obtain 0.072 in. of diametral 

travel preset extensometer to near -9.0 

volts then adjust to -9.000 volts using the 

zero adjust. 


Once the extensometer is attached 440.21 OP, 
to the specimen, its electrical page 4 
output may be adjusted to desired 

voltage using the zero adjust on 

the straln transducer conditioner. 
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* * * 


eo. 
ES 


ге. 


23: 


24. 
еб. 
eur 
27: 
28. 
29. 
30, 
2 1 
зе. 
33: 
34. 
39. 
ЭТ: 


SO 


39. 


40. 


41. 


4e. 


43. 


44. 


e. 2 sr Na RUNNING A TENSILE TEST ........—-— АО 


Turn console power on 

Select desired test temperature on the temperature 
controller. Attatch thermocouple to desired locale for 
controlling the temperature. 

With the enviromental chamber door closed turn the 
temperature controller to cool. Open the liquid output 
valve on the cooling medium container. 

Bring specimen to the desired test temperature. Ensure 
that temperature has equilibrated on the specimen by 
monitoring thermocouple temperatures for the two thermo- 
couples attatcned to the specimen. 

Press return to zero on the function generator. 

Press MTS 440. 37 process controller clear D/A button. 
Select strain control. 

Zero contoller meter using set point potentiometer. 
Press interlocK resets on MTS 445 and then MTS 413. 

Set rate 1 on the function generator to 10 sec. and rate 
е to 1 sec. 

Turn on the TekKtronics oscilloscope. 

Press start on the function generator. When, ın 10 sec., 
the oscilloscope sweep reaches -9 volts press function 
generator hold button. 


Set finction generator rate to 360 sec. and rate 2 to 
1000 sec. 

Zero the controller meter using the set point 
potentiometer. 


Clear interlocK resets on MTS 445 then MTS 413. 


Turn on hydraulics in low then switch to high pressure. 
Turn on the 9826 Hewlitt PacKard computer, DVM, printer 
and plotter. 

Boot up data collection program "JHCOLLECT". Press run 
and input the requested values. 

Set the MTS 445 controller recorder dials to Yi = load, 
Ye = strain and X = stroke, this sends these values to 
channels 1-3 on the DVM. 

Set the MTS 445 controller osiclloscope dials То Т1 - 
load, Ye - off, and X - strain. Then run leads to the 
chart recorder. The abscissa is strain and the ordinate 
is load. Set chart recorder at 1 volt/in. 

To start the test, press the computer soft Key labeled 
start and release the function generator hold button. 
If full extensometer travel is reached prior to the 
Specimen fracturing, stop hydraulics and pause the data 
collection program. 

Set function generator rate e to one sec. and press 
return to zero. 

Select stroke control on the MTS 445 controller and zero 
the meter using the set point potentiometer. 

Change the controller oscilloscope X dial to stroke. 
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E 
46. 


47. 
48. 


49. 


50. 
51. 


52. 


Press interlockK resets on the MTS 445 and then tne MTS 
413. 

Turn on hydraulics in low pressure then swith to high. 
Press continue on the data collection program. 

While ovbserving the chart recorder plot SLOWLY load the 
specimen to the point of fracture. This 1s done py 
manually adjusting the set point control in the clock- 
wise direction. 

When the specimen fractures press stop hydraulics on the 
MTS 413 master control panel. 

Press test stop on the data collection program. 

Secure the flow of the cooling medium to the 
enviromental chamber. 

Turn off console power. When the enviromental chamber 15 
at room temperature the specimen can be removed. 
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АРРЕНОТХ С 


BASIC COMPUTER PROGRAM FOR DATA COLLECTION 


1... ая в а аты а а ы а а ааа и е ае а аи а щы ы ы 


! PROGRAM У ЛОВ ВА АЦА САО EC 

P TENSLTE CHARACTERISTICS VS TEMP HSLA 100 
' THE PURPOSE OF THE PROGRAM IS TO COLLECT 
' THE FOLLOWING FOUR PARAMETERS DURING 

1 CONSTANT STRAIN RATE TENSILE TESTS AT 

! YVARTOUS TEMPERATURES. THE DATA IS STORED 
! IN ARRAYS FOR SUBSEQUENT MANIPULATION AND- 
' PLOTTING, THE PROGRAM ALSO ALLOWS PLOT- 
! 
! 
' 
' 
! 
! 
! 


srs @ h Ç 


! OF THE LOAD VS. DIAMETRAL DISPLACEMENT “ 
' рата (IBTRIHED HEREIN. < 
' PARANCTERS: “ 
lod * LOAD ° 
Dia = DIAMETRAL DISPLACEMENT “ 
Stk © MACHINE ACTUATOR STROKE = 
Itime = ГІМЕ OF TEST RUN “ 


Каша и н ае а оша сс бө ни өн ен не а и сан 
! 

! DIMEHSIONM THE ARRAYS FOR STORING DATA 

О1М Содс5о0о),5 Ек 0500) ,Оласд00), ТЕ те (500) 
PRINIER IS I!CRI 


Select : ! CREAT DATA FILES 
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PRINT "Select program using softkeys." 

OrF KEY 

GN KEY 0 LABEL “CREATE BDATA" GOTO D form 

UM KEY 4 LABEL “RENAME DATA FILE” GOTO R nan 
UN KEY 5 LABEL "Е STOP" GOTO 5 10 

ON KEY 9 LABEL “RUN TEST" GOTO T. est 

art. idle: GOTO Start idle 


Ost: 


Cnds е а 0 10 for test in prog | Гог test stopped 
рт 709 ! ADDRESS OF HP3497A 
CLEAR Dum !INITIALIZES HP3497A 


Set А ! IUITIRALIZE MTS TEST SET UF 


St 


PRINTER IS | 

PRINT USING "8,4" 

UFF KEY 

PRIHT "ENTER LOAD TRANSDUCER RANGE 1-4" 
PRINT "OR PRESS KEY ) FOR CANNED DATA" 
Тсопд 1 ! JRANSDUCER CONDITIONER #1 
605UB Range set 

PRINT "ENTER STRAIN TRANSDUCER RANGE 1-4" 
Icond*2 | TRANSDUCER CONDITIONER 42 
60508 Range set 

PRINT "CHÜOSE EXTENSOMETER TYPE",ExtensoS, "THEN CONTINUE" 
rait, go: FF KEY 

ON KEY QA LABEL "DIAMETRAL" GOTO Diam 

ON KEY 4 LABEL "LONGITUDINAL" GOTO Long 
ON KEY 9 LABEL "CONTINUE" GOTO Axe 


Strain „walt: GOTO Strain_wait 


Axe 


PRINT, "EXTENSOMETER TYPE IS ",ExtensoS$ 
PRIN] “ENSURE PROPER DISPLACEMENT IS ENTERED WHEN REQUESTED" 
PRINT "ENTER STROKE TRANDUCER RANGE 1-4" 

Icond*3 ' TRANSDUCER CONDITIONER #3 

605UB Range set 

OFF KEY 

[nitstr*0 'THIS IS THE STARTING POINT FOR ACTUATOR STROKE 
Instr*0 'THIS IS THE STARTING POINT FOR THE EXTENSONETER 


№) -4-- — — — — c a -e 


BE 5500 3 
PRINTER IS ! 
PRINT USING "9,2' 
PRINT "TURN ON THE DVM!'ttttttttttin 
PRINT 
PRINT "CHANGE THE DISC????9???????»" 
PRINT "ENSURE MTS HYDRAULICS IN HIGH PRESSURE AT THIS POINT" 
d "PRESS 'CONTINUE' TO RESUME " 
QUTPUT Dvm;"VRS RF! АЗ” 'SETS CHANNELS 1-3 TO AUTO RANGE 
QUTPUT Dvm;"AI3 VT1" 'READS PRESENT STROKE 
ENTER Dvm:St 
OUTPUT Dvm;"AI2 VT!" 'READS PRESENT STRAIN 
ENTER Dvm;Str 
PRINT * INITIAL STROKE PER DVM=";St 
PRINT " INITIAL STRAIN PER DVM=":Str 
Bstroke=Initstr-Istroke#St'BSTROKE SET BY INITIAL CONDITIONS 
INPUT “Specify maximum strain transducer output, V'",Max str 
INPUT “Specify displacement at this voltage.in inches'",Max disp 
* THE FOLLONING ACCOUNTS FOR TRANSDUCER RANGE SETTINGS 
Istra:nezIstrain*(Max disp/Max str) 
Bstrain=Instr-Istrain#*Str!BSTRAIN SET BY INITIAL CONDITIONS 
GOTO G_l 
Long: ! 
ExtensoS$-"Longitudinal" 
GOTO Strain. go 
Diam:! 
Extenso$="Diametral” 
GOTO Strain_go 
G_lL: INPUT “Gauge length. inches?” ,Gage 
PRINT “gage length=";Gage;" inches” 
INPUT “Initial diameter, inches?” ,D_0 
В8 04-4РТ/4)-(40 072)» 
GOTO Begin 
Range set: ! SUBROUTINE TO INPUT RANGES AND TO CONVERT 
! VOLTAGES TÜ ENGİNEERİNG UNITS 
OFF KEY 
ON KEY 0 LABEL "TEST DATA" GOTO Test dat 
ON KEY 1 LABEL "RANGE 1 = 1004" СОТО Е 1 
ON KEY 2 LABEL "RANGE 2 + 504“ GOTOR 2 
ON KEY 3 LABEL “RANGE 3 + 204“ GOTO R_3 
ON KEY 4 LABEL "RANGE 4 - 104 " GOTO R_4 
R_s: GOTO R_s 
R_1; PRINT “Range ! selected.” 
IF Icond=1 THEN Iload:2.( 
IF Icond=2 THEN Istrain#!.0 
IF Icond=3 THEN Istroke=.50 
RETURN 
R 2:PRINT "Range 2 selected." 
Ir Icond=1 THEN Iload:1.0 
IF Icond=2 THEN Istrain=.5 
IF Icond=3 THEN Istroke=.250 
RETURN 
R 3:PRINT "Range 3 selected." 
IF Icond=1 THEN Iload=.4 
IF Icond=2 THEN Istrain?.2 
IF Icond=3 THEN Istroke=.100 
RETURN 
R_4:PRINT “Range 4 selected.” 
IF Icond=1 THEN Iload=.2 
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1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1730 
1800 


IF Їсопаа 2 TREN lstrainse. 10 

IF Їсоп4-3 THEN Istroke-.050 

RETURN 
i У ИЕ setting up 

=] 

INPUT “HOW MANY READINGS PER TEST 500 МАХ?" ,Каз 

PRINT Rdg:" readings selected." 

PRINT "THE INTERNAL TRIGGERING OF THE DVM" 

PRINT "ALLOWS APPROXIMATELY 2 READINGS ОР THE" 

PRINT “FOUR VARIABLES PER SECOND WITH NO ADDITIONAL DELAY" 
INPUT “ADDITIONAL SECONDS BETWEEN READINGS 1 AND 50" Delay 
INPUT “ADDITIONAL SECONDS BETWEEN READINGS 51 AND 200". Delay! 
INPUT “ADDITIONAL SECONDS BETWEEN READINGS 201 AND 400",Delay2 
НД габотттомаг SECONDS BETWEEN READINGS 401 AND S00",Delay3 
ах 

ОЕЕ КЕУ 

PRINT 

PRINT "TEST SET UP AS FOLLONS:" 

PRINT "FOR ICONDs1!. 1 VOLT * ";Iload;" Kip" 

PRINT "FOR ICOND-2, 1 VOLT - ";Istrain:"IN" 

PRINT "FOR ICOND*3, 1 VOLT * ";Istroke;" "IN" 

PRINT 

PRINT "TYPE EXTENSOMETER IS ":Extenso$ 

PRINT "NUMBER OF READINGS =":Rdg 

PRINT “DELAY BETWEEN READINGS 0-50=";Delay; SECONDS” 

PRINT “DELAY BETWEEN READINGS 51-200=";Delay1;"SECONDS” 
PRINT "DELAY BETWEEN READINGS 201-400-2":Delay2:;" SECONDS" 
PRINT “DELAY BETWEEN READINGS 401-5002":Delay23;" SECONDS" 
PRINT "Press softkey to start or to change set up." 

BEEP 1000,.1 


ON KEY O0 LABEL "Start" GOTO Starter 
ON KEY 2 LABEL "Fix G.L." 6070 6_! 
ON KEY 4 LABEL "Change" GOTO Set up 


Begin idle: $GOTO Begin idle 
Starter :! 
PRINT “Data Acquiring” 


OFF KEY 


Starter2:!This interrupts data acq & restarts when “CONTINUE” is press 


ON KEY 1 LABEL “pause” GOTO Test_pause 
ON KEY 4 LABEL "STOP" GOTO Test. complete 
IF I<=50 THEN WAIT Delay 
IF І>50 AND I<200 THEN WAIT Delay! 
IF I>200 AND I<400 THEN WAIT Delay2 
IF I>400 THEN WAIT Delay3 


Data_acq: 


ПЕЕ 


ОУТРОТ Пут: "УК5 AFO AL3" 
ОИТРИТ Път: AI! 


ЕМТЕК 


OUTPUT Dym: “AI? VTI” 


ENTER 


OUTPUT 


ENTER 


! DATA ACQUISITION ROUTINE 


THEN T_O=TIMEDATE 
'SETS CHANNELS 1-3 TO AUTO RANGE 

TREADS COGN 

'PUTS VOLTS INTO VARIABLE 

‘READS STRAIN 


VTIS 
Dvm:Lod« I) 


Оут:Озас1) 'PUTS VOLTS INTO VARIABLE 
Dvm;"AI3 VT!" "READS STROKE 
Dvm:Stk (I) 'PUTS VOLTS INTO VARIABLE 


Itime(I)=TIMEDATE-T_O 


ES 


Lrdg=I 


' LAST READING COUNTER FOR STOPPING TEST 


IF I>Rdg OR 1>499 THEN Stopper 
GOTO Starter2 


PRINT 


Stopper: ! 


"ACQUISITION COMPLETE” 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1690 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2111 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2250 
2270 
2280 

230 
2300 
2210 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
254! 
2400 


Count outs! ! COUNTING AND SORTING VARIABLE 
Conv ss: ! 
'CONVERT VOLTAGE DATA TO ENG UNITS { ОАО, ТЕМР , ЅТКОКЕ , 0І5Р!. 
| гда+ | газ - 1 
FOR H=! TO Lrdg 
Lod(H)=Lod(H)#I load 
Stk (H)=Stk(H)#Istroke+Bstroke 
Dia(H)=Dia(H)*Istrain+Bstrain 
NEXT H 
‘STORE DATA AS CONVERTED TO BDAT FILES 
OFF KEY 
Dat out:'! 
PRINTER IS 1 
PRINT USING "8,27' 
PRINT “Data is being stored. Sorry for the gelay...... 
PRINT “Assigning to Load. etc." 
ASSIGN *Path! TO "Logd" 
ASSIGN @Path2 TO "Dia" 
ASSIGN 9Path3 TO "Stk" 
ASSIGN &Path4 TO "Itime" 
FOR I*1 ТО | газ 
OUTPUT éPath!;Lod(I) 
OUTPUT *Path2:Dia«I) 
OUTPUT @Path3:Stk (I) 
OUTPUT aPathâ;itıme(1) 
NEXT I 
FOR I=1 TO Lrdg 
ASSIGN &Path! TO * 
ASSIGN @Path2 TO * 
ASSIGN @Path3 TO = 
ASSIGN @Path4 TO =» 
NEXT I 
‘OUTPUT THE DATA 
PRINT USING "8,2" 
PRINT “SELECT HARD OR SOFT COPY" 
PRINT "LOAD/DISP" 
OFF KEY 
ON KEY 0 LABEL "HARD COPY" GOTO Har 
Ом KEY 4 LABEL "NO HARD COPY" GOTO Sof 
Stop idle: GOTO Stop idle 
Har: PRINTER IS 706 


Sor 

OFF KEY 

PRINT " I LOAD DISPL STROKE TIME 
PRINT " (KIP) (IN) (IN) (SEL) 


FOR I=! TO Lrdg 
eye USING Fmti IT Pod(I) Dia(I),Stk(I) ).Itime(1) 
NEXT I 
Fatt: IMAGE DDD.SX.4¢1X.SD.DDE) 
ПЕЕ KEY 
ре t 
DEG 
OFF KEY 
PRINI "Choose uhether or not to plot" 
ON KEY 4 LABEL “NO PLOT” GOTO Np 
ON KEY 0 LABEL “YES PLOT’ GOTO Y_p 
GOTO 2370 
Тірі! ! PLOT ROUTINE 
OFF KEY 
GCLEAR 


2410 GINiT 

2420 GRAPHICS ОМ 

2430 PLOTTER IS 705,°HPGL” 

2440 VIEWPORT 15.5, 13800 5.950 
245 РЕМ 1 

2460 VIENPORT- 25 1309530. 85 

2470 IF Count out:1 THEN 


2480 Мах х-.05 
2440 Мах у-8 
2500 Ү step-8 


2510 END IF 

2520 WINDOW 0,Max_x.0,Max_ 

2530 АХЕЗ Мах х/10, Мах 77/70, 0,0 
2540 CSIZE 2.0 

2550 VIEWPORT 13.5,133.10 5 555 

2560 LORG 4 

2570 РОК 140 ТО Мах х STEP Max x/10 


2580 MOVE I,-Max y/20 
2330 LABEL USING "К";1 
2600 NEXT I 


2610 СӘШДЕ 3 

2620 MOVE Мах х/2.-Мах 
2630 IF Count оц! +! THEN а USING "K'";"Displacement, in' 
2640 LORG 8 

2650 CSIZE 2 

2660 FOR I=0 TO Max. y STEP Max y/Y step 


2670 MOVE -Max E I 
2680 LABEL USING "K'";I 
2690 NEXT I 


2700 CSIZE 3 

2710 LDIR 90 

2220 LORG 6 

2730 MOVE -Max_x/8,Max_y/2 

2740 IF Count_out=! THEN LABEL USING "K";"Load, Kip" 
2750 LDIR 0 

2760 LORG 5 

2770 CSIZE es 

2780 MOVE 0,9 

2730 FOR J=} TO ‘газ 


2800 DRAW DialJ) ,Lod(J) 
2810 NEXT J 
2820 Np: ! 


2830 Count_out=Count_out+] 

2840 IF Count_out<2 THEN Conv_ss 

2850 Iz! 

2860 PRINT "Run another test? Press soft key" 
2870 FOR 0-0 103 

2880 DN KEY 9 LABEL "Run again" GOTO Са! х 
2890 ON КЕҮ 045 LABEL "New set up" GÜTÜ Set up 
2900 NEXT Q 

2910 ON KEY 4 LABEL "Stop" GOTO S 10 

2920 ON KEY 9 LABEL “Stop” GOTO 5 10 

2930 S_9: GUTO 523 

24402217 51 Р 

2950 Test Бар"! 

2960 Dıam-Dıa(lI)*lIstraın*Bstraın 

2970 Strk=Stk(I)*Istroke+Bstroke 

2980 Lode=Lod(I)*Iload+Bload 

2330 PRINT "Test halted at:" 

3000 PRINT "dia of ";Diam:" in" 


3010 РЕВ ее гонене Sek “iy 

3020 PRINT “load ot >: оде: “ lbs" 

3030 ВЕЕР 

3040 СОТО Са! х 

3050 Тез! рацзе: ! 

3050 OFF KEY 

3070 PRINT "TEST PAUSE HIT CONTINUE TO RESUME" 
3080 PAUSE 

3090 GOTO Data. aca 

3100 Test complete: ! STOPS DATA COLLECTION AND STORES THAT COLLECTED 
3110 OFF KEY 

3120 GOTO Stopper 

3130 Test_dat:!SAMPLE DATA FOR VERIFYING PROGRAM 
3140 [5 гоке=] 

3150 ! Istraın:.004 ! FOR DIAM. EXTENSO. RANGE! 
3160 Istrain=.010 ! FOR LONG. EXTENSO. RANGE! 
3170 Iload=1 

3180 ' Bstrains.040 ' FOR DIAM. EXTENSO. RANGE! 
3190 Bstrain=0 ! FOR LONG. EXTENSO. 

3200 D 02.25 

3210 A 0-.049 

3220 Т 0-ТЇМЕРАТЕ 

3230 Lrdg=10 

3240 FOR Is! TO 11 

3250 Lod(I)=I/2 

3260 Stk¢I)=I/5 

3270 ! Dia(I)=2"I-i2 !FOR DIAM. EXTENSO.0-10V 
3280 Dia(I)=I 'FOR LONG. EXTENO. 0-10V 
3290 Тъ:те( Т) - ТТМЕВАТЕ-Т 0 

3300 NEXT I 

3310 GOTO Stopper 

3320 R_nam: ! 

3330 BEEP 500,.2 

3340 BEEP 1000, .2 

3350 PRINT’ “Put тп аата 4:с«с!!!!!!!!!!!!” 
3360 PRINT “Hit continue key when ready” 

3370 PAUSE 

3380 OFF KEY 

3390 PRINT "Select old file name using soft keys" 
3400 ON KEY 0 LABEL “Lod” GOTO R_nam_! 

3410 ON KEY 1 LABEL "Dia" GOTO К пал 2 

3420 ON KEY 2 LABEL “Stk” GOTO R_nam_3 

3430 ON KEY 4 LABEL "Itime" GOTO R. nam. 5 

3440 R nam 0: GOTO К пал 0 

3450 К пат 1:014 Е: |е5- "од" 

3460 GOTO К. пал 8 

3470 R_nam_2:Old_file$="Dia" 

3480 GOTO R. nan. 8 

3490 R nam 3:Ü0ld *i1le$2"Stk" 

3500 СОТО К. пал 8 

3510 R nam 5:0ld fiıleS5-"Jtıne" 

3520 0010 К пал 8 

3530 К пал 9: ! 

3540 OFF KEY 

3550 INPUT “What is new file name?” ,New_files 
3560 RENAME Old_fileS TO New_files 

3570 PRINT USING “@,#" 

3580 PRINT "Any more files to rename?" 

3590 ON KEY 0 LABEL "MORE FILES" GOTO R nam 
3600 ON KEY 4 LABEL “quit” GOTO Select_ 


81 


3610 R nam :dle: 60TOR nam idle 


3620 0 form. 

3630 ПЕР КЕҮ 

3640 ÜN ERROR 60T0 Error check 
3650 PRINTER IS 1 

3660 PRINT USING "9,2" 

3670 PRINT “Put in data (б4іе<с!!!!!!!!!!!!! 
3680 PRINT “Then hit continue key.” 
3690 BEEP 100,.2 

3700 ВЕЕР З50 22 

2 BEEP 1000,.2 

3720 PAUSE 

3730 PRINT "Creating Lod file" 
3740 CREATE BDAT "Lod'".501,8 

3750 PRINT “Creating Dia file” 
3760 CREATE BDAT "Dıa".501,8 

3770 PRINT "Creating Stk file" 
3780 CREATE BDAT "Stk",501,8 

3790 PRINT "Creating Itime file" 
3800 CREATE BDAT "Itime",501,8 
3810 GOTO Select 

3820 Error check: ! 

3830 IF ERRN-54 THEN GOTO Select. 
3840 PRINT "Етгог...ЕКЕМ 156 "ЕКЕМ 
3850 60T0 D form 

3860 END 
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APPENDIX D 


BASIC COMPUTER PROGRAM FOR DATA REDUCTION 


10 aan n c oom o HUE UE аны ни энэ ни 09 9E E909 909 090 09 900 


20 PROGRAM STORED AS'JHREDUCE" 

30 PROGRAM TO CALCULATE STRESS/STRAIN .... 

40 PROM ТНЕЗРОЩАЩЕеШЕСЕСТЕШ ТИН ~ JHCGLLECT™ 

51 THEN STORE CALCULATED VALUES IN ARRAYS FOR 


' 
' 
: 
60 ! SUBSEQUENT PLOITING AND CURVE FITTING 
` 
' 
' 


# 
70 KEY VARIABLES USED: “ 
80 Lod = Load » 
э! Dia * Diametral displacement ы 
100! Stress = [rue Stress « 
110! Strain * True Strain * 
120! Lstress = Log of True Stress “ 
150! Lstrain = tog of True Strain “ 
140! Cstress = Bridgeman corrected True Stress* 
150! Clstress = Log Bridgeman Cstress ” 
160! 51гатпр = Plastic True Strain * 
170! Lstrainp = Log Plastic True Strain * 
180! «эж өг nan mmn mÉATEH A YA MEA MOREAU HERE 
190! 


200! DIMENSION ARRAYS 

210 DIM Lod(500) ,Stk (500) ,D1a(500) ,Itime(S00) 
220 DIM Stress(500»,Strain(500) 

230 DIM Lstress(500),.Lstrain(500) ,Cstress(500) 
240 DIM Lstrainp(500),Strainp(500) ,Cistress(500) 
250 PRINT " ENSURE THE PROPER FİLE NUMBERS" 

260 PRINT " ARE LISTED IN THE @PATH STATEMENTS" 
270 PRINT " PRIOR TO RUNNING THIS PROGRAM" 

280 t! INPUT INITIAL/FINAL SPECIMEN DIAMETERS 


290 ! [NPUT INITIAL/FINAL NECK RADIUS NF CURVATURES 
300 INPUT " ENTER INITIAL SPECIMEN DIAMETER",D 0 
310 ' CALCULATE INITIAL CROSS-SECTIONAL AREA А 0 


320 А О-В 072) 

330 PRINT “INITIAL AREA =",A_0 

340 INPUT " ENTER FINAL SPECIMEN RADIUS" .Rn 
350 INPUT © ENTER FINAL NECK RADIUS OF СОВУАТОВЕ",В 
360 "СОМРОЛТЕ INITIAL(CCORRI) AND FINAL (ССОВКЕ) 
370 "вк IDGEMAN CORRECTION FACTORS 

380 ' INITAL CORRECTION CORRI- .9723 

390 'THIS FACTOR IS APPLICABLE UP TO NECKING 
400 Corri=.9723 

410 Аз | + (2 «К/Кп) 

420 B=1+(Rn/(2"R) ) 

430 Corrf#1/(A#LOG(B)) 

440 PRINT “FINAL CORRECTION FACTOR =",Corrf 
450 INPUT "ENTER VALUE FOR YOUNG'S MODULUS", Ym 
460 INPUT “ENTER MAX LOAD”, Mlod 

470 Count out-i ! COUNTING VARIABLE 

480 IF Count out^1 THEN GOTO 680 

490 INPUT “CREATE FILES ? 1sYES 0s NO" ,Cre ate 
500 IF Cre ate>0 THEN 


510 PRINT "CREATING STRESS FILE" 
520 CREATE BDAT "Stress" ",501,8 
530 PRINT "CREATING STRAIN FILE" 
540 CREATE BDAT "Strain",501,8 
550 PRINT "CREATING LSTRESS FILE" 
560 CREATE BDAT "Lstress",501,8 
570 PRINT "CREATING LSTRAIN E 
580 CREATE BDAT "Lstrain',501, 

590 PRINT "CREATING CSTRESS FİLE" 
600 CREATE BDAT "Са | гезз",501, 8 
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610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
300 
910 
920 
330 
940 
250 
360 
370 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


1100 


— — —— ——— ——" 
fN) — — — — — — — — — 
со ооо УОЛ D QN — 
СООО оо Соо о оо > 


! 


PRINT "CREATING CLSTRESS FILE" 
CREATE BDAT "Clistress'",501.8 
PRINT "CREATING STRAINP FILE" 
CREATE BDAT "Strainp",501.8 
PRINT "CREATING LSTRAINP FILE" 
CREATE BDAT “Lstraınp",501.8 
END IF 
INPUT THE PROPER Lod AND Dia FILE NUMBER 


? THE FILES NUMBERS MATCH MIE =sPECINEN NU: 


' 


1.е. ASSIGN ФРАТНТ ТО “| од?!" 


ВЕЕР 300,.5 

PRINT " ENSURE PROPER LOD/DIA FILE DISC IN" 
PRINI " PRESS CONTINUE ТО PROCEED" 

PAUS 


ASSIGN 3Path! TO "Lod" 
ASSIGN «Path2 TO "Dia" 
PATHS 3 AND 4 ARE FOR ACTUATOR STROKE AND 
TEST RUN TIME AND ARE NOT USED IN PROGRAM 
ENTER INTO LOD/DIA ARRAYS THE VALUES UF THE 
APPROPRIATE DATA FILE FOR CALCULATION OF 
STRESS.STRAIN.... 
INPUT "Specify number of data points 500 max",Rdg 
FOR I*1 TO Rdg 
ENTER @Pathl;Lod(I) 
ENTER @Path2:Dia(I) 
IF Count_out#! THEN 
ТЕ Lod¢I)»>=Mlod THEN 
Mlod=Lod(I) !" MAX-LOAD 
Jutssl ! DATA POINT AT MAX-LOAC 


' THIS IS POINT WHERE THE LINEAR CORRECTION 
' BEGINS TO BE APPLIED, SEE ARRAY_ASSIGN 


PRINT “READING=",Juts 
PRINT “MLOD=",Mlod 
Mdia=Dia(I) * DISP. AT MAX-LOAD 
PRINT “MDIA=",Mdia 
GOTO Correct_b 
ELSE 
Juts=Rdg 
END IF 
END IF 
NEXT I 
GOTO 1230 
! 


Correct b: 'DETERMINE SLOPE AND INTERCEPT 


' VALUES TO APPLY LINEAR BRIDGEMAN 

' CORRECTION TO POINTS AFTER NECKING 
A_uts=(PI/4)#((D_0-Mdia) 2) 'AREA AT MAX-LQAD 
Stressuts*Mlod/R uts ! STRESS-UTS 

INPUT "LOAD AT FRACTURE=".F lod 

INPUT “FINAL DIA=".D_f 

A_f=(P]/4)=(D + 2) 

Fstress=Fiod/A_f ! STRESS AT FRACTURE 
Mb=(Corrf-Corri)/(Fstress-Stressuts) 

PRINT "MB-",Mb  'SLOPE FÜR LINEAR BRIDGEMAN 
t CORRECTION | 
Intercept=Corrf-(Mb*Fstress) ! INTERCEPT 

' VALUE FOR LINEAR BRIDGEMAN CORRECTION 
PRINT “INTERCEPT =", Intercept 

Count out*»Count out*1 

ASSIGN Pathi TO -= 
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1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
| 350 
1360 
1370 
1380 


ASSIGN «Path2 TO = 

GOTO 680 

PRINTER IS 1 

BEEP 200..5 

PRINT “INSTALL DISC TO SAVE DATA ON” 
PRINT “PRESS CONTINUE TO RESUME" 
PAUSE 

ASSIGN 3sPath5 TO "Stress" 

ASSIGN @Path6 TO "Strain" 

ASSIGN @Path/7 TO "Lstress" 

ASSIGN @Path8 TO "Lstrain" 

ASSIGN «*Path9 TO "Cstress" 

ASSIGN &Path!0 TO "Clstress" 

ASSIGN 4Path!! TO "Strainp" 

ASSIGN 4Path!2 TO "Lstrainp" 

PRINT “ASSINGING VALUES TO ARRAYS” 
PRINTER IS 706 

' COMPUTE AND ASSIGN VALUES TO ARRAYS 


1390 Array_assign:! 


1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1530 
1600 
1610 
1620 
1630 


1640 ! 


1650 
1660 
1570 
1680 
1630 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 


FOR J=} TO Rdg 
Rñi=(PI/4)*w((D_O0-Dia(J)) 2) 
Stress(J)=Lod(J)/A1 
OUTPUT 6Path5;Stress(Jj) 
StrainCJ? *LO0GKXA 0/81) 
OUTPUT &Path6;Strain(J) 

IF Stress(J)<=0 THEN 
Lstress(J)=0., 
ELSE 
Lstress(J)=LGT(Stress(J)) 
END IF 
OUTPUT @Path7;Lstress(J) 
IF Straın(J)<=0 THEN 
Lstrain(J)=0 
ELSE 
Lstrain(J)2LGT(Strain(J)) 
END IF 
OUTPUT @Path8:Lstrain(J) 
IF J<Juts THEN 
Cstress(J)=Corri*Stress(J) 
ELSE 
Corrb=(Mb*#Stress(J))+Intercept 
Cstress(J)=Corrb*Stress(J) 
PRINT "RDG-'.Rdq 
PRINT "Dia =",Dia(J) 
PRINI “Corrb “Corrb 
END IF 
ПИТРИТ wPatnhi:Üstress(Jj) 


ІР Сегтесс ЕШТЕН 
Cistrees(J)=9. 

ELSE 
Clsetress(J)=LGi(Cstress(J)) 

END IF 


OUTPUT #PathlO:Clstress(J) 
Straino (J) *Strain(J)-(Cstress(J)/Ym) 
OUTPUT @PathI I :Strainp(J) 
IF Strainp(J)<=0 THEN 
| сЕгатпр(.) 220. 
ЕЕЕ 
Lstrainp(J)=LGI(Strarinp(J)) 
END IF 
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19 
20 
30 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1310 
1920 
1930 
1940 
1250 
1960 
1970 
1980 
1850 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2220 
2260 
2270 
2-90 
2290 
2200 
2310 
2420 
2330 
2340 
2350 
2360 
2370 
2380 
2090 
2400 


13 
18 
18 


OUTPUT sPathl2:Lstrainet.J) 

! PRINT "гаа ѕ сотр|[еѓїе=", Ј 
NEXT J 
PRINTER IS 1 
ВЕЕР 500.1 
PRINT "INSTALL DISC AITH LOAD/DIA DATA " 
PRINT “PRESS CONTINUE TD CLOSE PATHS" 
PAUSE 
ASSIGN Pathi TO = 
ASSIGN @Path2 TO +” 
ВЕЕР 250 5 
PRINT "INSTALL STRESS/STRAIN...DATA DISC" 
PRINT "PRESS CONTINUE" 
PAUSE 
ASSIGN 9*Path5 TO 
ASSIGN #Path& TO 
ASSIGN Path? ТО 
ASSIGN #Path8 TO 
ASSIGN зРа:н9 TO 
ASSIGN еРа: 10 TO = 
ASSIGN @Path!1 ТО = 
ASSIGN @Pathi2 TO + 
INPUT “RENAME FILES? 1=YES 0=NO",C_nt 
PRINT "FILE SHOULD BE RENAMED USING" 
PRINT "THE APPROPRIATE SECIMEN NO.” 
IF C nt«1 THEN 

GOTO 2510 
END IF 


* k * * 4 


R nam: ! ROUTINE TO RENAME FILES 


ВЕЕР 500..2 
BEEP 1000,.2 


PRINT "Hit continue key when E 
PRUSE 

OFF KEY 

PRINT "Select old file name using soft keys" 
ON KEY 0 LABEL “Stress” GOTO R nam | 
ON KEY 1 LABEL “Strain” GOTO R_nam_2 
ON KEY 2 LABEL "Lstress" GÜTOR nan 3 
ON KEY 3 LABEL "Lstrain" GOTO R nam. 4 
ON KEY 4 LABEL "Cstress" GOTO R. nam. 5 
ON KEY 5 LABEL “Cistress" 60T0R nam 6 
ON KEY 6 LABEL "Strainp" GOTD R nam. 7 
ON KEY 7 LABEL "Lstrainpe" 0010 8 пат 8 


R nam 0: 0010 К пал 0 
R nam !:Ü0ld fileS-2"Stress" 


~ GOTO R “тат 9 


А nam 2:01d 7; |е5-"5 + гад" 


СОТО К nam 1 


В nam 3:0Üld fıle$s"Lstress" 


COTA R nam. E 


R nam 4: 014. file$-"Letrain" 


 GOTÜ К nam 9 


К пап 5:0ld fileS-2"Cstress" 


6010 К. пал 9 


R nam 6:0ld +. | е5- "С! < + гез<“ 


GOTO R nam 9 


R nam 7:U0ld fıle$s"Straınp" 


GOTU R nam 9 


R nam 3:Üld fıle$s"Lstraınp" 


2410 R nam 9:! 

2420 OFF KEY 

2430 INPUT “What is neu file name?" ,Neu f1le$ 
2440 RENAME Old fıle$ TO Neu files 

2450 PRINT USING "93,7" 

2450 PRINT "Any more files to rename?" 

2470 ON KEY 0 LABEL "MORE FILES" GOTO R. nam 
2480 ON KEY 4 LABEL "ац: +” GOTO 2510 

2490 R nam idle: GOTO R_nam_idle 

2500 1 ВЕЕР ШО 5 

2540 PRINT “PROGRAM COMPLETED " 

2520 ЕМО 
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APPENDIX E 


BASIC COMPUTER PROGRAM FOR DATA DISPLAY 


Т-ты» же а а эз зээ а и а ы и а и а ни аа аас 
PROGRAM “JHPLOT” 
THE PURPOSE OF THIS PROGRAM IS TO PLOT 
THE DATA COLLECTED BY "JHCOLLECT", 
THE BELOW LISTED GENERIC ARRAYS MUST 
INCLUDE n SPECIMEN НОС Lodi Vial see 
THE ARRAYS ARE: 
Lod( >= THE LOAD VALUES 
Dia( )= THE DIAMETRAL DISPLACEMENTS 
Stk ( >= MTS ACTUATOR STROKE VALUES 
Itimet€ )= TEST RUN TIME 
Stress( )= TRUE STRESS VALUES 
Strain( )= TRUE STRAIN VALUES 
Lstress()* LOG TRUE STRESS VALUES 
Lstrain( )= LOG TRUE STRAIN VALUES 
Cstress( )= BRIDGEMAN CORRECTED TRUE 
STRESS VALUES 
Clstress( ) = LOG BRIDGEMAN CORRECTED 
TRUE STRESS VALUES 
Strainp( )*= PLASTIC TRUE STRAIN VALUES 
Lstrainp( )= LOG PLASTIC TRUE STRAIN 
! VALUES 
Клет т и т ы ишен а и жа а и а анан ана и ы а а а а аи и а и иш 
! 
' DIMENSION THE ARRAYS 
DIM Lod(S00),Stk«(500) ,D1a(S00) ,Itime(S500),Stress(500) ,Strain(S00) 
DIM Lstress(500) ,Lstraın(500) ,Cstress(500) 
DIM Lstrainp(S500),Strainp(500) ,Clstress(500) 
BEEP 400,.5 
PRINT " ENSURE THE PROPER FILES TO BE PLOTTED ARE LISTED IN THE ASSIGN” 
БАШ * @PATH STATEMENIS PRIOR TO RUNNING THIS PROGRAM" 
NT 
Count out"0 !COUNTER 
INPUT “Specify number of data points 500 max",Rdg 
' THE FOLLOWING CALCULATES FRACTURE POINT VALUES 
INPUT "INITIAL DIAMETER" ,D_O 
А 0- (РТ/4) + (0 072) 
INPUT "LOAD АТ FRACTURE" ,F lod 
INPUT “FINAL DIAMETER ",Fdia 
Rn=Fdia/2 ! FINAL SPECINEN RADIUS 
INPUT “FINAL NECK RADIUS OF CURVATURE" ,R 
Согг а 1 /И (С (1 + (2 +  /Вп)) + (1 О(СОСТ + (Нп/ (2 #В))))) 
PRINT "FINAL BRIDGEMAN СОКК. +“; Согг? 
INPUT "ENTER YOUNG'S MODULUS" , Ym 
A f-*(Pl/4»*(Fdia^2) 
FstresssFlod/A f ` 
Lfstress*LGI(Fstress) 
Fstrain-LOG(A 0/8 f) 
Lfístrain-LGT(Fstrain) 
Cfstress-Corrf*Fstress 
Clfstress=LGT(Cfstress) 
Fstrainp=*Fstrain-(Cfstress/Ym) 
Lfstrainp-LGT(Fstrainp?) 
Stopper: ! 
IF Rdg>S00 THEN GOTO 340 
PRINT 


em m n Poo o Poo 9 .. `. .. `. > о = 
58 8 s $$ s $ 5 $ s S s $ ç $ » 3 9 3 » 9 ? 


Count out*Count. out *! 
PRINT “ASSIGNING PATHS” 
IF Count_out*! THEN 
BEEP 100 5 


1200 


PRINT “INSTALL APPROPRIATE DATA DISC” 
PRINT “PRESS CONTINUE TG RESUME” 
PAUSE 
IF Count outs! THEN 

ASSIGN Pathi TO "Lod" 

ASSIGN *Path2 TO "Dia" 

ASSIGN SPath3 TD "Stk" 

ASSIGN @Path4 TO "Itime" 


"END ТЕ 


IF Count_out=2 THEN 
ASSIGN @PathS TO “Stress” 
END IF 
IF Count_out=2 OR 4 THEN 
ASSIGN &Path6 TO "Strain" 
END IF 
IF Count out*3 THEN 
ASSIGN @Path7 TO "Lstress"' 
END ЈЕ 
IF Count out-3 OR 5 THEN 
ASSIGN VPath8 TO "Lstrain" 
END IF 
IF Count out-4 THEN 
ASSIGN 6Path9 TÜ "Cstress" 
END IF 
IF Count out>2-5 THEN 
ASSIGN &Path!0 TO "Cistress" 
ASSIGN @Path!1 TO "“Strainp" 


IND IE 


IF Count_out=6 THEN 
ASSIGN @Pathi2 TO “Lstrainp” 
END IF 
OFF KEY 
PRINTER IS 1 
PRINT “ENTERING ASSIGNED PATHS” 
FOR I=1 TO Rdg 
IF Count_out=1 THEN 
ENTER wPath!;Lod«I) 
ENTER GéPath2;Dia«I) 
ENTER @Path3:Stk(I) 
ENTER 9Path4:Itime(I) 
END IF 
IF Count out-2 THEN 
ENTER @PathS:Stress(I) 
ENTER “Path6;Straın(1) 
END IF 
IF Count ourt3 THEN 
ENTER *Path?;Lstress(I) 
ЕМО ТЕ 
IF Count_out=3 ІН 5 THEN 
ENTER wPathB;LstraintI?) 
ENDETE 
IF Count_out=4 THEN 
ENTER “Path9;Cstress(i) 
END IF 
IF Count out>:-5 THEN 
ENTER @Path10:Clstress(I) 
ENTER @Patht1t:Strainp(I) 
END ТЕ 
IF Count_out=6 THEN 
ENTER ®Pathi2:Lstrainp(I) 


1210 
1220 
1230 
1240 

22! 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1390 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1630 
1690 
1700 
1710 
1220 
1730 
1740 
1750 
1760 
1770 
1780 
11231 
1800 


ЕМО ТЕ 
NEXT I 
"ОЦТРИТ THE DATA 
Dat_out:! 
PRINT “SELECT HARD OR SOFT COPY” 
BEEP 900..5 
IF Count_out=! THEN PRINT "“LOAD/DISP” 
IF Count. out-2 THEN PRINT "STRESS/STRA IN" 
IF Count out*3 THEN PRINT "LSTRESS/LSTRAIN" 
IF Count outs4 THEN PRINT "CSTRESS/STRAIN" 
IF Count. out-*5 THEN PRINT "CLSTRESS/LSTRAIN" 
IF Count. out-*6 THEN PRINT "CLSTRESS/LSTRAINP" 
PRINT 
Plot:: ! 
DEG 
OFF KEY 
PRINT "Choose whether or not to plot" 
ON KEY 4 LABEL "NO PLOT” GOTO N p 
ON KEY 0 LABEL "YES PLOT" СОТО Үр 
СОТО 1400 
Үр: ! PLDT RDUTINE 
ЕРЕ КЕТ 
GCLEAR 
GINIT 
GRAPHICS ON 
PLOTTER IS: 705, HPGL- 
МТЕНРОЕТ 3.5 1330 ОВ 35 D 
РЕМ 1 
VIEMPORT 25,110,30,85 
IF Count ор THEN 'MAX COORDINATES FOR LOD VS. DIA DISPLACEMENT 
Мах х=, 
Мах у= 10 
Y_step=10 
WINDOW 0,Max_x.0,Max_ 
AXES Max_ x/10, НДЫ step.0,0 
EMD TF 
IF Count_out=2 THEN !MAX COORDINATES FOR STRESS/STRAIN 
Max_x=1.0 
Max_y=200 
Ү step:10 
WINDOW 0,Max_x,0,Max_y 
AXES Max_x/10, Мах EY step,0,0 
END IF 
IF Count_out=3 THEN !MAX COORDINATES FOR LOG STRESS/STRAIN 
Max Ээ 0 
Мах у-2.5 
Y steps 10 
WINDOW Мах х.0,.01,Мах у/. 995 
AXES Max_x/6.Max_y/Y_step.Max_x,.0' 
END IF 
fF Count_out=4 THEN !MAX COORDINATES FOR C STRESS/STRAIN 
Max_x='.0 
Мах у-250 
Y step-10 
WINDOW 0.Max _x.0,Max 
AXES Max x/10. Max A step, 0.0 
END IF 
IF Count_out=5 THEN *MAX COORDINATES FOR CLSTRESS/LSTRAIN 
Мах х--3 0 
Мах _у=2.5 
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1810 
1820 
1830 
1840 
1850 
1860 
1970 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


Y step-5 
WINDONMMaxex. 0-301. Max y/.995 
AXES Max_x/6.Max_y/Y_step.Max_x..01 
END IF 
IF Count out-6 THEN !MAX COORDINATES FOR CLSTRAIN/CLSTRESS 
Мах х:-4.0 
Мах у"2.5 
Ү_<їер=5 
WINDOH Max x,0..01,Max y/.995 
AXES Max. x/8. Max y/Y step, Max х,.01 
END IF 
CSIZE 20 
VIEWPORT 13.5.133,10.5.,95 
LORG 4 
IF Count_out=! THEN 
FOR І“) 10 Max x ЗТЕР Мах х/:0 
MOVE 1 Max 220 
LABEL USING "K';I 
NEXT I 
MOVE Max. x/2,-Max. y/8 
END IF 
IF Count. out-2 THEN 
FOR 1-0 TO Max x STEP Max —x/10 
MOVE Т,-Мах у/20 
LABEL USING "К"; Ї 
NEXT I 
MOVE Max x/2.-Max y/8 
END IF 
IF Count. out*3 THEN 
FOR 1:0 TO Max.x STEP Max. x/6 
MOVE I,-Max y/20 
LABEL USING "КЗ 
NEXT I 
MOVE Max x/2,-Max y/8 
END IF 
IF Count out-4 THEN 
FOR 1-0 TO Max x STEP Max x/10 
MOVE I.-Max y/20 
YER US ING "К" 
I 


MOVE Max x/2,-Max y/8 
END IF 
IF Count. out*5 THEN 
ЕПК 1-0 ТО Мах х STEP Max x/6 
MOVE 1.-Мах у/20 
LABEL USING "K'";I 
NEXT I 
MOVE Мах х/2.-Мах у/Б 
END IF 
IF Count. out*6 THEN 
FÜR 1-0 ТО Max x STEP Max «x/8 
MOVERI. -Max v / 20 
LABEL USING "K'';I 
NEXT I 


MOVE Max x/2,-Max y/8 
END IF 
CSIZE 2 D 


IF Count. out*1 THEN LRBEL USING "K':'"Diametral Displacement, Yn" 


IF Count out-2 THEN LABEL USING "K";"True Strain. in/in" 
IF Count outs =3 THEN LABEL USING "K";"Log True Strain" 
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2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2550 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 


2730 
2740 
2750 
2750 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2851 
2852 
2353 
2860 
2870 
2880 
2830 
2900 
2910 
2421) 
2830 
2440 
2950 
2960 
2970 


IF Count-outs4 [HEN (АВЕ РК“ е Саа. 
IF Count out*5 THEN LABEL USING "K'";"Log True Strain" 
IF Count out*6 THEN LABEL USING "K":"Loqg Plastic" 
IF Count out*6 THEN 
MOVE Max x/2.-Max y/5 
LABEL USING "K'";"True Strain" 
END IF 
(086 8 
CSIZE 2 
IF Count_out=1 THEN 
РОК 120 TO Max_y STEP Max_y/Y_step 
MOVE -Мах х/40,Т 
LABEL USING "K';I 
NEXT I 
END IF 
IF Count out72 THEN 
FOR 1:0 TO Max y STEP Max. y/Y ster 
MOVE -Мах х/40, 1 
LABEL USING "К"; І 
NEXT I 
END IF 
IF Count out-3 THEN 
FOR 1:50 TO Max y STEP Max y/Y step 
MGVE Max. x/.99.I 
LABEL USING "K' I 
NEXT I 
END IF 
IF Count out-4 THEN 
РОК 150 TO Max y STEP Max. y/Y step 
MOVE -Max/35,I 
LABEL USING "K' I 
NEXT I 
END IF 
IF Count out>:5 THEN 
FOR I*0 T0 Max y STEP Max y/Y step 
МОЧЕ Max x/.99.I 
LABEL USING "K' 5I 
NEXT I 
END IF 
Сола (0 
LDIR 90 
LORG 6 
IF Count out*1 THEN 
MOVE -Max x/10,Max y/2 
END IF 
IF Count out-2 THEN 
МОМЕ -Мах х/8,Мах у/2 
END IF 
IF Count_out=3 THEN 
MOVE Мах_х/.90.Мах_у/2 
END IF 
IF Count_out=4 THEN 
MOVE -Мах_х/10,Мах_у/2 
END IF 
IF Count out>-5 THEN 
MOVE Max x/.91,Max y/2 
END IF 
IF Count out*1 THEN LABEL USING "K'";"Load. Kip" 
IF Count out-2 THEN LABEL USING "K'";"True Stress. Ksı" 
IF Count. out*3 THEN LABEL USING "K";"Log True Stress(Ksi1)" 
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2380 IF Count, out-4 THEN LABEL USING "K";"Correctea frue Stress(ks;)" 
2990 IF Count. out»*5 THEN LABEL USING "K'";"Log True Stress(Ksi)" 

3000 IF Count_out>=5 THEN 

3010 МОУЕ Мах х/.88.Мах у/2 

3020 LABEL USING "K";'"Corrected" 

3030 END IF 

3040 LDIR 0 

3050 LORG 5 

3060 СОЕ КӘ 


3070 PENUP 
3080 IF Count out«3 THEN 
3090 MOVE 0.6 


3100 END IF 

3110 IF Count_out=3 THEN 
2120 PENUP 

3130 END IF 

3140 IF Count out-4 THEN 
3150 MOVE 0.0 

3160 END IF 

3170 IF Count. out*5 THEN 
3180 PENUP 

3190 END IF 

3200 IF Count. out*6 THEN 
3210 PENUP 

3220 ЕМО ТЕ 

3230 ! PLOT THE VARIOUS CURVES 
3240 FOR J=1 TO Rdg 


3230 IF Count out! THEN 

3250 DRAW DiatJ).Lod¢J) 

3270 END IF 

3280 IF Count out*2 THEN 

3290 DRAW Strain(J),Stress(J) 
3300 END IF 

3310 NEXT J 

3320 IF Count. out*3 THEN 

3330 FOR J=1 TO Rdg 

3340 MOVE Lstrain(J),Lstress¢J) 
3350 DRAW Lstrain(J).Lstress(J) 
3360 NEXT J 

3370 t! PLOT FRACTURE POINT 

3380 MOVE Lfstrain.Lfstress 

3390 LABEL USING УК"; "и" 

3400 END IF 

3410 IF Count_out=4 THEN 

3420 FOR J=1 TO Rdg 

3430 DRAW Straın(j) .Cstress(Jj) 
3441) NEXT J 

3450 'PLOT FRACTURE POINT 

3460 MOVE Fstrain.Ctstress 

3470 LOBE- UŞING ©K “~ 

3480 END IF 

3490 IF Count_out=5 THEN 

3500 FOR J=5 TQ Rdg 

3510 MOVE Lstrain(J) ,ClstressiJ) 
3520 DRAW Lstrain(J).Clstress(¢J) 
2530 NEXT J 

3540 ' PLOT FRACTURE POINT 

3550 MOVE Uistrain.Clfstress 
3560 LABEL USING “K”; "=" 

2570 END IF 
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3580 


25307! 


3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3220 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3330 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 


IF Count. out*6 THEN 
THIS ROUTINE PLOTS LOG CORRECTED TRUE STRESS VS. LOG PLASTIC TRUE 
FOR J=27 TO Rdg ! J= THE FIRST PLASTIC STRAIN ».001 LOG TRUE STR 
THIS VALUE MUST BE ENTERED FOR EACH SPECIMEN 
MOVE Lstrainp(J),Clstress(J) 
DRAW Lstrainp(J),Clstress (J) 
NEXT J 


t! PLOT FRACTURE POINT 


MOVE Efstraınp.Clifstress 
LABEL USING "K"'";"«'" 

END IF 

PEN Up 
* GRAPH TITLE 

УТЕНРПЕТ-13:5:4133:0,10:543520 

LDIR 0 

CSIZE 4 

MOVE Max. x/2.Max y/.90 

INPUT "ENTER SPECIMEN NO." ,No 

LABEL USING "K'";"HSLA-100 HOURGLASS" 

MOVE Max x/2,Max y/.95 

LABEL USING "SPECIMEN МО." „Мо 

PENUP 
IF Count out*! THEN PRINT "LOAD/DISP" 
IF Count. out*2 THEN PRINT "STRESS/STRAIN'" 
IF Count out-3 THEN PRINT "LSTRESS/LSTRAIN" 
IF Count, out*4 THEN PRINT "CSTRESS/STRAIN'" 
IF Count out-5 THEN PRINT "CTSTRESS/LSTRAIN" 
IF Count. out*6 THEN PRINT "CLSTRESS/LSTRAINP" 
ON KEY 0 LABEL "HARD COPY" GOTO Har 
ON KEY 4 LABEL “SOFT COPY” GOTO Sof 


Stop_idle: GOTO Stop_idle 
Har: PRINTER IS 706 
Sof: ! 


OFF KEY 
IF Count out-! THEN 
PRINT " I LOAD DISPL STROKE TIME" 
PRINT " (KIP) CIN) (IN) (SEC) 
FOR I=! TO Rdg 

PRINT USING Fmti:I,Lod¢(I) ,Dia(I) ,Stk¢I) ,I time) 


NEXT I 

END IF 
IF Count_out=2 THEN 
PRINT" I STRESS STRAIN " 
PRINT " (Ksı) (In/Iin) ” 


FOR Is! TO Rdq 
PRINT USING Fmt2;I.StresstID,Strain(I? 
NEXT I 
ETE 
IF Count = 3 ТНЕМ 
PRINT LSTRESS LSTRAIN " 
FOR 1-5 TO Rdq 
PRINT USING Ем: Г. (5: гезз(Т),| 5їга:п‹ 1) 
NEXT I 
END IF 
IF Count out:4 THEN 
PRINT " I CSTRESS STRAIN" 
FOR I=! TO Rdg 
PRINT USING Fmt2:I,.Cstress(1).Strain(I) 
NEXT I 
END IF 
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4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 


4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4520 


IF Count. out-5 THEN 
PRINT " I CLS TRESS 
ЕПК 1-5 i0 Rdg 


LSTRRIN 


Fmtl: 
Fmt2: 
4320 М 


PRINT USING Fmt2:1,Clstress(I),Lstrain(I) 


NEXT I 
END IF 


IF Count out:6 THEN 
PRINT " I 


FOR I=23 TO Rdg 
PRINT USING Fmt2;1I,Cistress(I),Lstrainp(I) 


NEXT I 
END IF 


t 


mp: 2 
OFF KEY 


IMAGE DDD.5X. 
IMAGE DDD.5X. 


LES KESE İRAN ° 


201X750 DUDE) 
2O X, SD.DDDE) 


IF Count_out<6 THEN GOTO Stopper 


ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 
ASSIGN 


OFF KEY 


«Path! 
ePath2 
&Path3 
SPath4 
@PathS 
aPath6 
Ран? 
@Path8 
@Path9 


* 5$ * к 9» ee 5 


Ра: ь10 TO * 
&Pathii TO е 
ФРа: 12 TO =- 


ON KEY 4 LABEL "Stop" GOTO S 10 
ON KEY 0 LABEL “RERUN” GOTO 330 


Pause idle: 
S 10:STOP 


END 


GOTO Pause idle 
PRINT "PROGRAM COMPLETED" 
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APPENDIX F 


BASIC COMPUTER PROGRAM FOR CONSTITUTIVE EQUATION TESTING 


Ó5an5o44594 94919 9 9982 9 9 229 & 209 5929292 292 299 9 944" 9^ 


' PROGRAM STORED AS "PDHERFIT" 


1 

3 » 

10 ! THE PURPOSE OF THIS PROGRAM IS TO PLOT * 

11 ' LOG BRIDGEMAN CORRECTED TRUE STRESS VS « 

12 ! THE PURPOSE UF THE PROGRAM IS: ” 

lj ! 1.ТО0 APPLY A POHER FUNCIION FIT BY THE * 

14 : METHOD OF LEAST SQUARES, TO THE LOG = 

15 ! BRIDGEMAN CORRECTED TRUE STRESS/LOG = 

16 ! PLASTIC TRUE STRAIN VALUES FOR EACH > 

y ' HSEñ=-100 SIEEL SPECIMEN IESIFD. ” 

18 : 2.COMPUTATION OF THE STRAIN HARDENING = 

13 ! EXPONEHT,M, AND THE STRENGTH - 

20 ! COEFFICIENT,K1. PLOT A STRAIGHT LINE = 

21 ! BETWEEN LOG PLASTIC STRAIN -.001 AND = 

22 ! 1.0 USING SLOPE,M, АМО INTERCEPT LOG = 

23 ! Ki. THIS LINE OVERLAYS THE PLOT OF ” 

24 ! BRIDGEMAN CORRECTED TRUE STRESS VS. = 

25 ! LUG PLASTIC TRUE STRAIN. - 

26 ! 3.СОМРІЛЕ THE CORRELATION СОЕРЕТСТЕНТ,К» 

27 ! AS A MEASURE OF THE FIT BETWEEN THE = 

28 ! TWO CURVES. | = 

23 ' 4, АККАУ VALUES CAN BE PRINTED OUT " 

31 ЕЛ 55555 522252252525 552225222222 522525. 
ev? 

33 'POHER EĞ. FORM LOG(STRESS)*LOG(K1) + MLOC(STRAIN) 
34 t! STRESS IS THE BRIDGEMAN CORRECTED TRUE STRESS 
40 ! STRAIN IS THE TRUE PLASTIC STRAIN 

50 ! THE EXPERSSION SHOULD YIELD A LINEAR RELATION 
60 ' M IS THE SLOPE OF THE LINE AND IS CALLED THE STRAIN HARDENING EXPONENT 
70 INTERCEPT CALCULATIONS YIELD THE VALUE FOR Ki 
71 ' DIMENSION ARRAYS 


80 ОТМ С| 5: геъ5(500), | в га: пр (500) 
20 ИМТ ЛЕМ Да APPROPRIATE FILE NO. IS FOLLOWING THE Clstress/Lstrainp arrays" 
] IN 
110 PRINT " APPROPRIATE DATA DISC MUST BE INSTALLED TO RUN PROGRAM" 
120! CALCULATE BRIGEMAN CORRECTION AT FRACTURE CORRF 
130 INPUT "FINAL SPECIMEN RADIUS,Rn',Rn 
140 INPUT "FINAL NECKED RADIUS OF CURVATURE,R'",R 
150 Согг е |/И (С ( | + 2 К/Кп) + (| ОС 1 + Кп/ (2 +К)))) 
160 PRINT "FINAL CORRECTION FACTOR *";Corrf 
161 THE BRIDGEMAN CORRECTION TO POINTS 1 -RDG 
162 i HAS BEEN DETERMINED AND APPLIED IN CSTRESS 
163 ! HHEN THE CSTRESS ARRAY HAS GENERATED. 
164 ! THEN THE LGT OF THOSE ARRAY POINTS HAS TAKEN 
165 ! TO YIELD THE CLSTRESS ARRAY. 
166 ! THESE MANIPULATIONS WERE DONE BY "JHREDUCE" 
8 
' 
' 
! 


167 ! THUS THE CLSTRESS ARRAY IN THIS PROGRAM 
Wee ! HAS THE CORRECTED VALUES IN IT 

1 : 

170 ! DETERMINE THE FRACTURE POINT 


171! CORRECTED LSTRESS/LSTRAINP VALUES 
173 INPUT "YQUNG’S MODULUS,YM IN Ksi",Ym 
174 INPUT “INITIAL SPECIMEN DIAMETER’ ,D_O 

A 0-«PI/A)*«D 0^2) 

D f*2-*Rn 

A f-(PI/A)«(D F^2) 

INPUT "LOAD AT FRACTURE" ,F lod 
Fstresssrlod/A f 
Fstrain-LOG(A, 0/A f) 
Cfstress*Corrf*Fstress 


— оор м охл 


1? 
le? 
17 
17 
Ї 
18 
18 
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184 
leo 
188 
189 


192 
193 
200 
210 
220 
230 
240 
250 
26) 
270 
280 
290 
300 
3!0 
320 
330 
340 
350 
350 
370 
380 
350 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
550 
55 | 
592 
560 


Loefstress*LGI(C(fstress) 
EstrarnpsFstrarn-(Cfsrtmess / и) 
| 55 trainp- LOTCE sS agyno) 
PRINT “LCFSTRESS=",Lcfstress 
PRINT "LFSTRAINP s",Lfstrainp 
ASSIGN Meath! 10 “ClstressS” 
ASSIGN wee atne 10 SLetraino5" 
INPUT “SPECIFY NUMBER OF ARRAY РОТМТ5 500 МАХ" ,Каз 
FOR I=1 TO Rade 
ENTER SsPath!:;Clstress(ID 
ENTER *Patn2:Lstraino(1) 
NEXT I 
‘OUTPUT DATA 
PRINT “SELECT HARD COPY OR SCREEN OUTPUT OF" 
PRINT "THE Ustrarino ance Clstress arrays” 
OFF KEY 
ÜN KEY 0 LABEL "HARD COPY" GOTO Har! 
ON KEY 4 LABEL "SOFT COPY" GOTG Sofi 
Stop idle: GOTO Stop idle 
Har!: PRINTER IS 706 
Бог |: 
OF: KEY 
PRINT "I CLSTRESS LSTRAINP"'" 
FOR 1а1 ТО Ваа 
E USING Feti:I:Clstress(ID,Lstrainpt ID 
NEXT I 
Feti: IMAGE DDD.5X.2€CI1X.SD.DDDE) 
' ЕТТ А STRAIGHT LINE TO THE ORDERED PAIRS 
* üstralınpot(i) .Cistress(1) 
! SOLVING THE SIMULTANEOUS EQUATIONS AS 
! LISTED IN THE CRC HANDBOOK 
'A AND B ARE THE FRACTURE POINT Lstrainp andClstress values respectively 
BAsLfstrainp ! FRACTURE POINT LSTRAINP 
k е» "FRACTURE POINT LCFSTRESS 


^ 
- 


н ни HM 


о о) с р 
4 4 
~ 


' DATA PAIR COUNTER INCLUDES FRACTURE POINT 
THE INITIAL VALUE FOR I IS USER АҒЫ 
INPUT " FIRST DATA РОТМТ,ВОб «“.Ёїг 
! THIS SHOULD BE THE FIRST POINT a LSTRAINP 
! GREATER THAN -3.0 
FOR I-First TO Rdg 
В0-84 со га:пр( 1) 
б=Ай 'NÜM P IS SUMMING VARIABBL- 
З0=В +С] |втгезз (Г) 
В-80 "МО, Б 15 SUMMINC VARIABLE 


> = о "О 
© 
Ч 


COsC*«(C!stressCiherztrainot( I2) 
(CO "мами © AS сим] NG VARIABLE 
В0-0+ (и <Е балпе (с!) 2) 


0500 'NGw D IS SUMMING VARTABLE 
rFN=F+(Cistress(i) 2) 

F=FO "NOW F IS SUMMING VARIABLE 
NO > ры ‘COUNTER FOR DATA PAIRS 


17 


шиг 
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700 
710 
?20 
7 30 
740 
750 


DFF KEY 

PRINT "SECECTOHARDOSCUPYOSUROSGORESNICOUTPUNEUES 
PRINT "THE DATA OUTPUT" 

ON KEY 0 LABEL “HARD COPY" GOTO Har2 

ON KEY 4 LABEL “SCREEN OUTPUT" GOTO Sof2 
GOTO 750 


760 Har2:PRINTER IS 706 


770 
780 
800 
810 
820 
830 
831 
840 
850 
860 
870 
880 
890 
520 
930 
940 
950 
960 
970 
980 
330 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


110 


— 
— 
© 
e 


N 
eo 


0 
0 


<> с> од> = 


e 


кол а ек тей а па --ф аа а а= 


2 +. Фоо со м Оул Б C) 
=> 


г 
г 


— 
гэ 
Ww 
e 


1240 


1260 
1270 
1280 
1290 
1300 


i 


~ 
сл 
о 


Sof2:! 


INPUT “SPECIMEN NQ.=".No 
INPUT “TEST TEMPERATURE=",Tt 


PRINT 

PRINT " HSLA-100 HOURGLASS" 

PRINT " SPECIMEN NO.",No 

PRINT 

PRINT “ TEST TEMPERATURE =" {it DEC С” 
PRINT 

PRINT = YOUNG'S MODULUS ="; Ym:" Ksı” 
PRINT 

PRINT " FIRST DATA POINT cun r rS 

PRINT 


N STRAIN HARDENING ЕХРОМЕМТ,КТ ВМО 
RIN 

'SLOPE OF LINE M 
PRINT " NUMBER OF DATA PAIRS=";N 
МЕС (МеС)-(Я4В))/( (Ме) -Е) 

КТ + (В/М) - (Мей/М) 


PRINT 

PRINT ” SE OS N 
PRINT 

PRINT " ІМТЕКСЕРТ « ”;К1 
РКІМІ 


! COMPUTE CORRELATION R 

Согсое « ( (Ме С) -(А+В)) /ЗОК(С С (Ме) -Е) + ( (МеР)-С)) 
PRINT " CORRELATION COEFFICIENT.R =";Corcoef 
PRINT 

PRINTER IS 1 


Count out-1 


ote 00! 


DEĞ 

OFF KEY 

PRINT “Choose whether or not to plot” 
ON KEY 4 LABEL “NO PLOT" GOTO N_p 

ON KEY 0 LABEL “YES PLOT’ GOTO Y_p 
GOTO 1152 


їр: РРА 


OFF KEY 
GCLEAR 
GINIT 
GRAPHICS ON 
РЕПТТЕК ri 
МТЕНРОНТФ ГТ СТЕГІ 
РЕМ 7 
УТЕНРОКТ 25.110,30,85 
Мах _х=-4.0 
Мах _х=-3.' 
Мах ух2,5 
Y stepz5 
WINDOW Мах х.0,.01, Мах у/. 995 
AXES Max x/6.Max y/Y step Max x..01 
CST ES 


1320 
1530 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1720 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1935 
1840 
1850 
120! 
1902 
1903 
1905 
12:21 
191 | 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


! 


! 


*— oo о е-% 


VIEWPORT geo ee. oS 
LORG 4 
FOR 1=0 ТО Max_x STEP Мах х/6 
MOVE Т, -Мах у/20 
LABEL USING CK ST 
NEXT I 
MOVE Max x/2,.-Max y/8 
CS İZE 5 0 
LABEL USING "K';"Log Plastic" 
МОУЕ Мах х/2, -Мах у/5 
LABEL USING "K'";"True Strain" 


РОК 1-0 TO Max y STEP Max y/Y step 
MOVE Max x/.99,I 
LABEL USING "K';I 
NEXT I 
CSIZE 3.0 
(015 90 
LORG 6 
MOVE Max x/.91.Max y/2 
LABEL USING “К°“:" [оа Тгие $ге<56‹Кз1)" 
MOVE Max x/.88.Max y/2 
LABEL USING "K'";"Corrected" 
LDIR 0 
LORG S 
CSIZE .5 
THIS ROUTINE PLOTS LOG CORRECTED TRUE STRESS VS. LOG PLASTIC STRAIN 
FOR J=First TO Rdg 
MOVE Lstrainp(J) ,Cletress(J) 
DRAW Lstrainp(J),Clstress(J) 
LABEL USING "K';"'»'" 
NEXT J 
ENUP 
PLOT FRACTURE POINT 
İZE „5 
MOVE Lfstrainp.Lcfstress 
LABEL USING "K'";'»«" 
PENUP 
THIS SECTION PLOTS THE CURVE FIT LINE 
FIRST POINT CORRESPONDS TO A STRAIN OF .001 
THE SECOND POINT CORRESPONTS TO A STRAIN OF1.0 
X1=-3.0 
Y1=(M=X1)+K] 
MOVE X1,Y1 
X2 =) 
У2 (МАХ?) + 1 
BE n 
PRINT “CHANGE COLOR OF PEN ? 30 SEC DELAY" 
PRINT "PRESS PEN DONN” 
WAIT 30 
DRA& X1,Y! 
DRAW X2.Y2 


/ 


* GRAPH TITLE 


VIGHPORIESIS 500920. 1055,95..0 

LDIR 0 

CSIZE 4 

MOVE Max x/2.Max y/.90 

INPUT "ENTER SPECIMEN NO.'"'.No 

LABEL USING "K'":"HSLA-100 HÜURGLASS" 
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MOVE Мах х/2 „Мах у/.395 
LABEL USING "K'";"SPECIMEN МО." Мо 
PENUP 
Мерит 
OFF KEY 
Count outzCount outt! 
IF Count out>21 THEN 
ASSIGN @Path! TO = 
ASSIGN &Path2 TO * 
ELSE 
GOTO Plotz 
END IF 
OFF KEY 
PRINTER IS 1 
ON KEY 4 LABEL "Stop" GOTO S. 10 
ON KEY 0 LABEL “RERUN” GOTO 192 
Pause idle: GOTO Pause_idle 
S ТО 5ТПР 
ри eGR CUMPDEEI IE 
EN 
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